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IDENTIFICATION 


PRODUCT ID: AC-T332A-MC 
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MAINTAINER: TAPE DIAGNOSTIC ENGINEERING 
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COPYRIGHT (C) 1983 BY 
DIGITAL EQUIPMENT CORPORATION, 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 


PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 15 HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
riots tes je CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT 


1.0 ABSTRACT 


gaa IS A PDP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF TUSO MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM. 

THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 


| 
1. ENGINEERING SPECIFICATION FOR TUBO RAGTAPE CONTROLLER; DOCUMENT | 








YM-C194D-022; REVISION NUMBER 2; DATE: 28-JUL-81. 


2. ENGINEERING SPECIFICATION FOR TU8O DIAGNOSTIC PACKAGE; DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0; DATE: 2-SEP-81. 


3, ENGINEERING SPECIFICATION FOR TU8O MAGTAPE SUBSYSTEN: 
NUMBER: YM-C194S-02; REVISION NUMBER 3; DATE: UN-81. 


4. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC 
DATE: 14 JULY 1980. 


DOCUMENT 
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HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 


2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 
2.1 HARDWARE REQUIREMENTS 





PDP-11 FAMILY PROCESSOR Md 32K WORDS OF MEMORY 
TU8O MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
a cae DIAGNOSTIC REQUIRES "32k WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR 1/0 PAGE) 





2.2 OPTIONAL HARDWARE: 


UP TO 4 TU8O CONTROLLERS PER PDP-11 UP TO 1 DRIVES PER CONTROLLER 


2.5 SOFTWARE REQUIREMENTS 


PDP=11 DIAGNOSTIC SUPERVISOR (HSAADO.SYS) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


2.4 PREREQUISITES 


FUNCTIONAL PDP-11 FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE T 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 





. aan - - 
es see 
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OPERATING INSTRUCTIONS - OPERATOR COMMANDS 
3.0 OPERATING INSTRUCTIONS 





3.1 OPERATOR COMMANDS 


THE TU8O trig IS A nag h DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. LOADING AND RUN TIME INSTRUCTIONS CAN BE 
REFERENCED. iN THE PDP-11 PROGRAMMER'S MANUAL ‘’CIQPMAO XXDP+ 
PROGRAMMER’S MANUAL, NUMBER AC-S296A-AC. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


CHMDLBO XXDP+ DL MONITOR 28K 
BOOTED VIA UNIT 0 


ENTER DATE (DD-MMM-VY): 29-JAN-82 

hg ~— 153726 

1g BE <CR> 

THIS 1S xxDP¢ TYPE “‘H’’ OR “H/L** FOR DETAILS 
R CZTUXAO 


CZTUXABINDRS LOADED 
DIAG. —— SERVICES REV. D APR 79 









CZTUX= 
sees TuR0 LOGIC DIAGNOSTICeeee 
UNIT IS TUBO 


DR> 
DORS>START/FLAG:PNT : HOE 


THE ABOVE COMMANDS WILL START THE DIAGNOSTIC. THE COMMAND HAS 
TWO SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED" 
AND "HALT ON ERROR’. 








3.2 HARDWARE PARAMETERS 





AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "‘CHANGE HW?"" QUESTION TO ASK IF 


SOR 
HARDWARE PARAMETERS ARE TO GE CHANGED (BY THE OPERATOR). 


ON A “NT — RESPONSE TO THE “CHANGE HW?"’ QUESTION, THE DIAGNOSTIC WILL 
WILL GIVE THE MESSAGE "WO UNIT’. A “'Y’' IS REQUIRED AND AT 


NOT RUN. IT 
LEAST A ‘I IS REQUIRED AT THE ‘#@ UNITS (D)2" Que STION. 
TSBA/TSDB = 172522, VECTOR = 224 


ON A “'V’’ (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE — = 


VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS 


seo 5 


cea 
eee ee a  - 


04 eee oe ee eee 


2 ae 
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DEFAULT VALUE THAT WILL BE TAKEN 'F ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A ‘(D)"* IN A QUESTION INDICATES THAT A_ DECIMAL NUMBER IS 
as A_ RESPONSE. **(0)"" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN ‘"(L)** INDICATES THAT A LOGICAL RESPONSE IS TO GE MADE 
“*y"’ FOR YES, “N’ FOR NO. 


# UNITS (D) 2? <ENTER THE NUMBER OF M7454 CONTROLLERS 
PRESENT TO BE TESTED> 





UNIT 0 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSSR REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “# UNITS?°° QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 





3.5 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE; 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE “'Y'’ TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN he 


ONLY QU 
TESTS USE MULTIPL 
ITERATIONS .> 


~~: eee ee ee 
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OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 


4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSFUL RUN EXAMPLE (PDP-11) 


TST: 001 FIFO EXERCISER TEST 

TST: 002 INITIALIZE #4 TEST 

TST: 003 OFF-LINE REJECT AND REWIND TEST 

TST: 004 BASIC WRITE DATA TEST 

Ls of 005 BASIC READ DATA (FORWARD AND REVERSE) TEST 
: 006 MANUAL INTERVENTION TEST 

1st: 007 CONFIGURATION TYPEOUT TEST 

TST: 008 SCOPE LOOPS TEST 


0 ERRORS 
NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


eee Oe ee Se 
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OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 


5.0 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 


ERROR MESSAGE EXAMPLE 1 


TST: 001 FIFO EXERCISER TEST 


CZTUX HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT #> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> JIDENT<11> IHER <8> IONL<S> IFBY<1> 
yg ICER <10> ISPEED<7> ILDP<4> IFPT<0> 








RECV: 000000 
RECV: 070217 
RECV: 000034 





ERROR MESSAGE EXAMPLE 2 


CZTUX HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT ony AFTER SPACE RECORDS COMMAND 





TSSR = 
TSSR BITS SET: SC, 
ON LAS 


S CODE = UNRECOVERABLE ERROR 





ERROR MESSAGE EXAMPLE 3 


TST 001 SUB 002 PC: 023306 
REWIND (EXTENDED FEATURES MODE) 
000200 


CZ2TX HRD ERR 00121 ON UNIT 00 
T SE NG 
RECV: 000112 KOR: 


MOT BIT (xSTO) NO 
EXPD: 000312 


a 


SEQ 8 


~ mE Eo ee 
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PROGRAM RUN TIMES 


6.0 PROGRAM RUN TIMES 








THE AVERAGE RUN — OF THE PROGRAM ARE LISTED BELOW.THESE FIGURES ARE 
TO BE USED AS GUIDE. THE TIMING WAS DONE ON A PDP-11/34 
PROCESSOR WITH A LA~3é CONSOLE. 


THE oeaana RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE. IS RUN ONCE, WITH NO ITERATIONS. INT 


EACH TEST HE 
DEFAULT MODE EACH TEST IS REPEATED BY MES INDICATED BY 
OUNT. NO ITERA 


THE NUMBER OF TI I 
THE ITERATION C ATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A ‘’Y’’ (YES). 









TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 
1 1 1 0 
2 1 1 0 
3 1 1 0 
& 1 1 0 
5 1 ‘ 0 
6 N/A 
7 N/A 
8 N/A 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 5 IN ONE COMMAND: 


Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 


<< ed - A a A me 


- 


' 
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7.0 TEST SUMMARIES : 
7.1 TEST 1 = FIFO EXERCISER | 


PTT TTT Ti itiiiiiiiiiitiiii iii iii 
* WOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TUBO'S : 
# CL~"VOLLER (M7454) ee 


ib EAN ete ot 


THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO VERIFY 
THE CONTROLLER'S FIFO AND ASSOCIATED STATUS AND CONTROL LOGIC. 


7.1.1 TEST 1, SUBTEST 1:- 


a TEST VERIFIES, BY USING THE READ STATUS SELECT gt THAT 
THE FIFO STATUS IS IN THE CORRECT INITIAL STATE AFTER THE 
CONTROLLER IS INITIALIZED (INPUT READY TRUE, OUTPUT READY 

AND DATA IN MISS FALSE). THESE STATUS SIGNALS ARE CHECKED 

BY THE CONTROLLER'S SELF-TEST SEQUENCE, SO THIS SUBTEST IS 
ACTUALLY MORE OF A PARTIAL CHECK OF THE READ STATUS FUNCTION 
THAN THE FIFO STATUS. 


7.1.2 TEST 1, SUBTEST 2:- 


THIS SUBTEST VERIFIES THE ABILITY OF THE FIFO TO CORRECTLY 
PASS A DATA BYTE FROM INPUT TO OUTPUT. FOR EACH OF THE 256 
DATA VALUES (0-377 OCTAL) THE FOLLOWING IS DONE: 
1. INITIAL FIFO STATUS IS CHECKED 
. THE WRITE FIFO FUNCTION, a A COUNT OF ONE 
BYTE TO BE WRITTEN, IS EXECUT 
3. READ STATUS IS EXECUTED AND FIFO STAUS IS CHECKED. 
4. ro IS EXECUTED AND THE DATA AND FINAL STATUS IS 


7.1.3 TEST 1, SUBTEST 3:- 


THIS SUBTEST VERIFIES THE ABILITY OF THE FIFO TO CORRECTLY 
PASS MULTIPLE DATA BYTES FROM INPUT TO OUTPUT. THE FOLLOW'NG 
ae 





— WITH VARIOUS DATA PATTERNS AND BYTE COUNTS 





1. INITIAL FIFO signin IS CHECKED. 
THE WR 


. ITE FIFO F 
. RESD STATUS IS EXECUTED AND FIFO STATUS IS “HECKED. 
a, cee” EXECUTED AND THE DATA AND FINAL STAUS 


wires 


7.1.4 TEST 1, SUBTEST 4;- 


THIS SUBTEST VERIFIES THAT READING THE Aa WHEN IT IS EMPTY 
CAUSES THE LAST WORD (ILW) STATUS TO A sitiisieiieinsteancacammtinmnaminntlet 
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Totes TEST 1, SUBTEST 5:- 


THIS SUBTEST VERIFIES THAT WRITING 64. BYTES INTO FIFO, WITHOUT 
NG AN ES THE INPUT READY STATUS TO NEGAT 


SUBTE KE 
THE DATA IN es STATUS TO ASSERT. NEXT IT IS VERIFIED THAT THE 
ORIGINAL 64 BYTES CAN BE READ OUT CORRECTLY AND THAT THE DATA 
HAS NOT BEEN CORRUPTED. 









7.1.6 TEST 1 SUBTEST 6:- 


THIS SUBTEST VERIFIES THAT THE RESET FIFO FUNCTION WITHIN THE 
WRITE MISCELLANIOUS CONTROL 1 FUNCTION INITIALIZES THE FIFO 10 
THE CORRECT INITIAL STATUS. THE FOLLOWING STEPS ARE PERFORMED: 


1. i El INITIALIZED FIFO AND CHECK FOR 
2. WRITE A VARYING NUMBER OF BYTES (1-65. ) INTO THE 


FIFO AND VERIFY THAT AFTER EACH BLOCK OF BYTES IS 
WRITTEN THE FIFO CAN BE RESET TO ITS INITIAL STATE. 


7.2 TEST 2 = INITIALIZE @4 


RERAARAERAAAAAAAAAAAAAAAARAAAAAARAAEAAEAAEEAATAAAERAEAAAAAAAARRAERAERE 


* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TU8O'S * 
* CONTROLLER (M7454) 


& 
SAAS AAAAAAAAAAAAAAAAAARARAARAEAAAAEAAAAAAAAEAARAARARAARARARRARARAARAE 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
CONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITONS. 


7.3 TEST 3 = OFF LINE REJECT AND REWIND TEST 









THIS TEST VERIFIES BASIC TAPE MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE RE NG COMMAND. IT DOES 


PORT AN GE 
WOUND F RAR ON THE TAPE. SUBSEQUENT 

TESTS IMPLICITLY CHECK THE OPERATION OF THE REWIND 

COMMAND SINCE THEY MUST TYPICALLY REWIND THE TAPE IN 

IN THE NORMAL £ OF THEIR Test SEQUENCES. THE TEST 

CONSISTS OF THE FOLLOWING THREE SUBTESTS: 








7.3.1 TEST 3, SUBTEST 1:- 
THIS SUBTEST VERIFIES THAT ALL TAPE MOTION COMMAND ‘ 


_——- ——— -— —> ane ee ow -_—_-- 
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VALID MODE CODES) TERMINATE WITH FUNCTION REJECT AND OFF 
LINE STATUS WHEN THE TAPE TRANSPORT IS OFF-LINE. 


7.3.2 TEST 3, SUBTEST 2:- 


THIS SUBTEST VERIFIES THAT A REWIND COMMAND, WITH THE CLEAR 
ae ea is a BIT CLEAR IS REJECTED IF THE VOLUME CHECK 


7.3.3 TEST * SUBTEST 3:2 


THIS SUBTEST VERIFIES THAT A REWIND COMMAND WITH A CvC=1 CLEARS 
VCK AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 


7.4 TEST 4 = BASIC WRITE DATA TEST 


TTI ILL iti titi iitiiiifi iit iii iii 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE ANY * 
* TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT ® 


KAAAAAAAAKAAAAAAAAAAARERAAAAARAERSEAERATAAAARAEAAAAEAAARAARARAARARAAE 


THIS TEST VERIFIES THAT * WRITE DATA (NEXT) COMMAND OPERATES 
CORRECTLY, UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
WRITTEN ONTO Land ote CORRECTLY. THE TESTING IN THIS TEST IS LIMITED 
TO VERIFYING T THE COMMAND WAS TERMINATED CORRECTLY WITH THE 
CORRECT REGISTER, BUFFER, AND RAR CONTENTS. 





7.4.1 TEST 4, SUBTEST 1:- 


THIS SUBTEST VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) 
WITH THE CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE 
VOLUME CHECK (VCK) FLAG IS SET. ALL VALID MODE CODES ARE CHECKED 
(WRITE DATA, WRITE RETRY). 





7.4.2 TEST 4, SUBTEST 2:- 


THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND 
THE SWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE BYTE COUNT 
ARIES FROM 20 THROUGH 64K IN 7 con an he: 













T 
WRITTEN. AN INCREMENT! TTE 
BUFFER. AFTER EACH ELOCK IS WRITTEN, THE TTSR 
REGISTERS AND THE MESSAGE BUFERS ARE CHECKED. 





7.4.3 TEST 4, SUBTEST 3:- 


THIS SUBTEST VERIFIES THAT WRITE DATA CC S WIT =1 ANI ee ae 
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THE SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE 
I aa TO THAT USED IN SUBTEST 2. THE RESULTS SHOULD BE 


7.4.4 TEST 4, SUBTEST 4;- 


THIS SUBTEST VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL 
BUFFER ADDRESS IS oy WITH THE PROPER ERROR STATUS 
AND THAT TAPE DOES NOT MOVE. 


7.4.5 TEST 4, SUBTEST 5:- 


THIS SUBTEST VERIFIES THAT A WRITE DATA COMMAND SPECIFYING 
A DATA BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
THE PROPER ERROR STATUS WITHOUT MOVING TAPE. THIS TEST IS 
SKIPPED IF NONEXISTANT MEMORY CAN NOT BE ADDRESSED. 


7.4.6 TEST 4, SUBTEST 6:- 


THIS SUBTEST VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A 

DATA BUFFER IN STARTING IN EXISTANT MEMORY BUT wee INTO NONEXISTANT 
MEMORY TERMINATES WITH THE PROPER ERROR STATUS. A LARGE 

ENOUGH RECORD SIZE IS SPECIFIED SUCH THAT TAPE IS ACTUALLY 

MOVED AND WRITTEN. 


7.5 TEST 5 = BASIC READ DATA TEST (FORWARD AND REVERSE) 


REAKAAAHAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAARATAALSEAAAAARARARARRAARAA 


~ Pg THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT ® 


scenanecateneeeaeeaeanuaectnesenaesayeeuseueauaneunsaecensecenses 
THIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE COMMANDS 
OPERATE PROPERLY. OUS OF ODD AND DATA 
BOUNDARIES. RECORD SIZES S 
USED. THE TEST FURTHER VERIFIES THE WRITE DATA COMMAND 
Y READING AND VERIFYING WRITTEN DATA. ASO TESTED 
T OR ERROR CONDIT 


IONS: 
RECORD LENGTH LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, 
pt A la BUFFER ADDRESSES, AND NONEXISTANT DATA BUFFER 













7.5.1 TEST 5, SUBTEST 1:- 


THIS SUBTEST VERIFIES THAT THE READ FORWARD COMMAND WITH SWB=0 
OPERATES PROPERLY. THE TAPE IS FIRST e-yre AND Ly 4 _ 
WITH A SERIES OF TEST RECORDS VARYING 5TH AN -—_ a 






' 
ee ee re 
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CONTENT. THE TAPE IS THEN REWOUND AGAIN AND THE RECORD READ 
SEQUENTIALLY AND RESULTS (STATUS, DATA, ETC.) VERIFIED. THE 
BYTE COUNT ON EACH READ FORWARD COMMAND IS SET TO THE LENGTH 
ay EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 


7.5.2 TEST 5, SUBTEST 2:- 


THIS SUBTEST VERIFIES THAT THE RAD DATA COMMANDS WITH CVC=1 AND 
THE SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE 
IS IDENTICAL TO THAT tr IN = 2. THE RESULTS, EXCEPT FOR 


RAM CONTENTS SHOULD BE T 


7.5.35 TEST 5, SUBTEST 3:- 
THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READ! 





RECORD L R THAN 
ALERT TERMINATION WITH THE RECORD LENGTH (RLL) BIT SET. 


7.5.4 TEST 5, SUBTEST 4;- 
THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READ 


ING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 





MESSAGE BUFFER CONTAINS THE PROPE Vv 
DIFFERENCE BETWEEN THE ACTUAL BYTE COUNT AND THE ACTUAL 


RECORD LENGTH). 


7.5.5 TEST 5, SUBTEST 5:- 





CONTENT. THE TAPE IN RE 
HE RESULTS (STATUS, DATA, ETC.) VERIFIED. THE BYTE 
ON EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF 





7.5.6 TEST 5, SUBTEST 6:- 


THIS SUBTEST ee te THAT THE READ DATA COMMANDS WITH CvC=1 
AND THE SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. THE RESULTS 
EXCEPT FOR RAM CONTENTS SHOULD BE THE S 














7.5.7 TEST 5, SUBTEST 7:- 


THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND, READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT, CAUSES A TAPE 
a ALERT TERMINATION WITH THE RECORD LENGTH LONG (RLL) 











NG A 
THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS 


COUNT 
THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


SEQ 14 


' 
TT aT 
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7.5.8 TEST 5, SUBTEST 8:- 


THIS ag ho VERIFIES THAT A a REVERS COMMAND SPECIFYING A DATA 
BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH THE PROPER 
ERROR STATUS WITHOUT MOVING THE TAPE. 





7.5.9 TEST 5. SUBTEST 9:- 


THIS SUBTEST VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
Acad. a REJECT TERMINATION WITH ILLEGAL ADDRESS (ILA) ERROR 


7.5.10 TEST 5, SUBTEST 10:- 


THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS, REFERENCING 
NONEXISTANT at os CAUSES RECOVERABLE ERROR TERMINATION (TC=4), 
WITH THE NXM BIT 7. IN THE TSSR, AND THAT THE TAPE IS ULTIMATELY 
POSITIONED PROPERL 


7.5.11 TEST 5, SUBTEST 11:- 


THIS SUBTEST Pa THAT A READ REVERSE COMMAND ISSUED WHILE 
THE TAPE IS AT BOT RESULTS IN A FUNCTION REJECT TERMINATION 
WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


7.5.12 TEST 5, SUBTEST 12:- 


THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) 
RESULTS IN TAPE STATUS ALERT. 





7.6 TEST 6 = MANUAL INTERVENTION 


THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY 
OWS THE OPERATOR 70 a fr: gag 






EC CODE 
RET TO THE DIAGNOSTIC SUPER ARE BY TYPING <CTRL-C> OR 
BY SELECTING CODE 3. SELECTION CODES AND SUBROUTINES ARE: 


CODE ROUT INE 
ahi PRINTS THIS MENU 


FLINE/ONLINE ae TEST 
URITE-PROT CT TEST 









0 
1 
2 








eee ee we ee ee 


SEQ 15 


ee EE eS 
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SEG 16 


3 EXIT (RETURN TO SUPERVISOR) 
EACH MENU ITEM CORRESPONDS TO A SUBTEST AS FOLLOWS: 
PRINTS OUT THE MENU ON THE CONSOLE IERHINAL. 





THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A WRITE CHARACTER- 
TICS COMMAND TO ENABLE ATTENTION INTERRUPTS, ISSUES A MESSAGE 
COMMAND, PRINTS A MESSAGE ON THE CONSOLE TERMINAL 
ON-LINE SWITCH ON TH 


RELEASE 
INSTRUCTING THE THE OPERATOR TO TOGGLE THE 
TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. EACH TIME THC TRANSPORT 
TRANSITIONS FROM ON-LINE T eee ner ? VICE VERSA, AN ATTENTION INTERRUPT 
SHOULD BE GENERATED. ca PROGRAM WILL REPORT THE INTERRUPT AND THE 
THE CURRENT STATE OF THE TRANSPORT. OPERATOR SHOULD VERIFY THAT 
THE REPORTED STATE MATCHES THE STATE INDICATED BY THE LED ON THE 
FRONT PANEL OF THE TRANSPOR ADD THE TRANSPORT IS PLACED 
ISSUES A SEQUENCE APE MOTION COMMANDS 
ETC.) AND VERIFIES THAT, FOR EACH 
COMMAND, FUNCTION ON RESULTS, ALONG WITH THE 
NON-EXECUTABLE FUNCTION (NEF) ERROR BIT BEING SET. 


THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH TAPE — 

THAT DOES NOT HAVE A WRITE ENABLE onrt” INSTALLED, THEN WAITS 

FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLI 
THE RE IES THAT THE TRANSPORT 


UPON » THE PROGRAM VERIF 
SHOWS A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA 
ON AND TS THE APPROPRIATE ER ION 






































J 
TERMINATION IS NOT RECEIVED, AN ERROR IS REPORTED. 


7.8 TEST 8 = CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE 
TERMINAL THE CONFIGURATION OF THE M7454 MODULE AND THE TU8O 
SUBSYSTEM. SPECIFICALLY, THE FOLLOWING INFORMATION IS PRINTED: 
1. MICROCODE REVISION LEVEL OF THE M7654. 
R OF T TS C D TO THE a - 


2. APE T igo gt ONNECTE 
3. UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, 
ENABLED/PROTECTED)OF EACH CONNECTED TRANSPORT. 


THE OPERATOR IS gg od TO READ Hy PRINTOUT AND VERIFY THAT IT 

































S PRESENT, THE 
AND ATTEMPT TO FIND THE CAUSE (BAD CABLE, 
ODING IN THE TRANS°ORT, ETC.) .CSINCE THE CONTROLLER CAN ONLY 
ACCESS UNIT O IF IT i. IN ‘STANDARD’ HE PROGRAM WILL FORCE THE 
MODULE INTO EXTENDED MODE VIA THE WRITE SUBSYSTEM MEMORY COMMAND 
IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.) 


THIS ROUTINE, WHEN ITS ACTIC DAPLE TEL M17 BACK TC saiesaiaies a iioninedeamaans 

















Tr EE 


LL 


me wee ee eae 
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USER DOCUMENTATION 


834 


THE DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL ol (CONTROLLERS) 
ARE SELECTED (E.G. FROM THE INITIAL STARTUP DIAL THE ROUTINE WILL 
BE REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 








7.6 TEST 8 - SCOPE LOOPS 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT ‘SCOPE 
THe A? USEFUL FOR NG BASIC REGISTER oe TS PROBLEMS WITH 


M7454 MODULE. THESE SCOPE LOOPS CAN SE USED WHEN THE 
“LOOP ON ERROR" OR “LOOP ON TEST (SUBTEST)*’ FACILITIES hy 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE 
TESTS (1.E. THE a MAY NOT BE 


















ACCESS, CAUSING A 
SELECTED BY THE PROGRAM MATCHES 
THE HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS 


1S AVAILABLE: 
CODE SCOPE LOOP 


HELP. PRINT THIS MENU 
LL READ ACCESS 


SSR READ ACCESS 
INITIALIZE (TSSR WRITE ACCESS) 
TSDB HIGH BYTE WRITE ACCESS 








TENANCE-MODE WORD WRITE ACCESS 
EXIT (RETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO THE MENU. 


NOU FW 3 © 





SEQ 17 


ean 


ae 
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-SBTTL PROGRAM HEADER 


-MCALL SVC 

svc : INITIALIZE SUPERVISOR MACROS 
ENABLE LC 
-NLIST BEX,CND 
-ENABL AMA,ASS 
- = 2000 
BGNMOD TUV2A 

TUV2A: : 

. ++ 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
;_ THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSFT ,BGNAU,BGNDU,BGNRPT ,BGNSETUP 
HEADER CZTUX 710,655. 00 


LSNAME:: DIAGNOSTIC NAME 
ASCII /C/ 
ASCII /2/ 
ASCII /T/ 
ASCII /U/ 
ASCII /X/ 
BYTE 
BYTE 0O 
BYTE O 

LSREV:: sREVISION LEVEL 
eASCII /A/ 

LSDEPO: : 30 
ASCII /0/ 

LSUNIT:: SNUMBER OF UNITS 
WORD TSPTHV 

LSTIAL:: 685 sLONGEST TEST TIME 

LSHPCP: : sPOINTER TO H.W. QUES. 
WORD LSHARD 

LSSPCP sPOINTER TO S.W. QUES. 
WORD LSSOFT 

LSHPTP: : sPTR. TO DEF. H.W. PTABLE 
WORD LSHW 

LSSPTP:: sPTR. 16 $.W. PTABLE 
-WORD LSSW 

LSLADP: : sDIAG. END ADDRESS 
WORD LSLAST 

LSSTA:: sRESERVED FOR APT STATS 
WORD 0 

LS$Co:: . 

LSDTYP:: P sDIAGNOSTIC TYPE 

LSAPT:: sAPT EXPANSION 
-WORD 0 

LSDIP:: sPTR. TO DISPATCH TABLE 
-WORD LSDISPATCH 

SPRIO:: * DIAGNC RUN PRIOF 


SEQ 18 


6 2 
MACRO M1200 29-MAR-85 15:32 PAGE 12-1 


SEG 19 
CZTUXAO TUBO FRONT END PRT B 
PROGRAM HEADER 





000000 D 
LSENVI: sFLAGS DESCRIBE HOW IT WAS SETUP | 
000000 
LSEXP1:: sEXPANSION WORD 
000000 
LSMREV:: :SVC REV AND EDIT #@ 
003 -BYTE CSREVISION 
003 -BYTE CSEDIT 
LSEF:: sDIAG. EVENT FLAGS 
006000 -WORD 0 | 
000000 F 0 
LSSPC:: 
000000 0 
LSDEVP:: : POINTER TO DEVICE TYPE LIST 
003334 LSDVTYP 
LSREPP: : sPTR. TO REPORT CODE 
023046 \WORD LSRPT | 
LSEXP4:: 
000000 0 
LSEXPS:: 
000000 0 
LSAUT:: sPTR. TO ADD UNIT CODE 
022544 LSAU 
LSDUT:: sPTR. TO DROP UNIT CODE 
022642 LSOU 
4 LSLUN:: sLUN FOR EXERCISERS TO FILL 
74 000000 dD.6«(«O 
76 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
76 003342 ‘ LSDESC 
100 LSLOAD: : sGENERATE SPECIAL AUTOLOAD EMT 
H's 104035 ESLOAD 
1 LSETP:: sPOINTER TO ERRTBL 
1 000000 ‘ 0 
1 LSICP:: sPTR. TO INIT CODE 
1 P LSINIT 
1 LSCCP:: sPTR. TO CLEAN-UP CODE 
106 eWORD LSCLEAN 
110 LSACP:: sPTR. TO AUTO CODE 
11 -WORD LSAUTO 
1 LSPRT:: :PTR. TO PROTECT TABLE 
11 -WORD LSPROT 
114 LSTEST:: sTEST NUMBER 
114 -WORD 0 ) 
116 LSDLY:: sDELAY COUNT | 
116 -WORD 0 
\? LSHIME:: sPTR. TO HIGH MEM 
0021 WORD 


ee ee ee ee ee er ee 
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872 002122 
122 
124 

124 

873 

ar costes 172522 
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-SBTTL DEFAULT HARDWARE P-TABLE 





a 


ome me 
mm 





DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
TEST“DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW 8 86DFPTBL sDEFAULT HARD-P-TABLE 









WORD 110000-LSHW/2 
172522 : 2ND (OF 2) REGISTERS. 
224 ; INTERRUPT VECTOR 
PRIOS : INTERRUPT PRIORITY. 





SEQ 20 


—— 


ee eee 


; 
~~ <—_— = 


seep ere a eee 
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-SBTTL SOFTWARE P-TABLE 


see 
; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 











; : PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

002132 stip BGNSW PTBL 

002132 000004 WORD Py O00T-LSSW/2 

002134 LS$SW:: 
sa 002134 SFPTBL: : 
887 002134 000000 TRANSTST:: .woRD 0 sENABLE RAM DUMP 
888 002136 000000 NOITS:: “wOoRD 0 ; INMIBIT ITERATION OPTION. 

PY eee = 

890 ; ..0NZ = INHIBIT ITERATE. 
891 002140 000031 .WORD 25. : LOCAL (PER TEST) ERROR LIMIT 
892 002142 000310 "WORD 200. $=; GLOBAL (PER UNIT) ERROR LIMIT 
893 0021 

002144 
894 


ee 


; 
; 
LL LLL LLL CL LLL LL LL A, 
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-SBTTL GLOBAL EQUATES SECTION 


-SBTTL GLOBAL EQUATES SECTION 


z+¢ 
THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
_ARE USED IN MORE THAN ONE TEST. 


LL LLL LL - - 


EQUALS : GET STANDARD EQUATES. 
: BIT DIFINITIONS 
B1T15== 100000 


——— 





: EVENT FLAG DEFINITIONS 
:  EFS2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. : START COMMAND WAS ISSUED 
EF RESTART == 31 “ : RESTART COMMAND WAS ISSUED 












ONTINUE COMMAND WAS ISSUED 
; A NEW PASS HAS BEEN STARTED 
: A POWER-FAIL/POWER-UP OCCURRED 





PRIORITY LEVEL DEFINITIONS 
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929 
930 002144 


000250 
177572 


172516 
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PRIO7== 340 
PRI06== 300 


PRIOS== 240 
PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIOi== 40 
100== 0 
sOPERATOR FLAG BITS 
EVL== 
LOT== 10 
ADR== 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRi== 
[XEss & 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOEs= 1 


KT “DEFINE MEMORY MANAGEMENT REGISTERS 
SBTTL MEMORY MANAGEMENT DEFINITIONS 

seKit VECTOR ADDRESS 

neattt STATUS REGISTER ADDRESSES 

SRO= «177572 

SRi=s —«-177574 

SR2= «177576 

SRS= 172516 

USER “'I'’ PAGE DESCRIPTOR REGISTERS 


















DORI 51ST a 


SEQ 25 


er 


: 
’ 
« 
TT 
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UIPARO= 177640 





UIPAR6= 1 

UIPAR?= 177656 

SRUSER "'D'’ PAGE ADDRESS REGISTERS 
UDPARO= 177660 










SI 

eg 172216 
s*SUPERVISOR *'D’* PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 

SDPDRI= 172222 
SDPDR2= 172224 
SDPDR3= 172226 
SDPDR4= 172230 
SDPDR5= 172232 
SDPDR6= 172234 
= 172236 
s®SUPERVISOR “‘I’’ PAGE ADDRESS REGISTERS 
SIPARO= 17224 

SIPARI= 172242 

SIPAR2= 172244 

SIPARS= 172246 

SIPARG4= 172250 

SIPARS= 172252 

SIPAR6= 172254 

SIPAR7= 172256 


oIF NB 
s®SUPERVISOR ‘‘D’* PAGE ADDRESS REGISTERS 
SDPARO= 172260 














eee 


' 
' 
TT 
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SDPARS= 172272 
SDP. 172274 
SDPAR7= 172276 
ENDC 





-ENDC 
s*KERNEL “I*" PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 





14 
172316 
IF NB 
s*KERNEL ‘DD’ PAGE DESCRIPTOR REGISTERS 
KDPDRO= 172520 





7 

KDPORS= 172332 

KDPOR6= 172334 

KDPDR7= 172336 

Z*KERNEL “‘I'* PAGE ADDRESS REGISTERS 
72340 






KI 723546 
KIPART= 172356 
SeKERNEL "D'’ PAGE ADDRESS REGISTERS 
KDPARI= 172362 
KDPAR2= 172364 


——" 172376 


SEQ 25 


a 


ee ee EE EE Se 


TT eee ss al 
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-SBTTL TUBO REGISTER AND PACKET DEFINITIONS 


: SOME GENERAL EQUATES. 





ERRVEC== 4 : POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
TTIVEC== 60 : INTERRUPT VECTOR FOR CONSOLE INPUT 
TTICSR== 177560 ; BUS ADDRESS OF CONSOLE INPUT 

TTIBFR== 177562 ; CONSOLE INPUT DATA BUFFER 


2¢ 
:BIT DEFINITIONS FOR TSSR REGISTER 


sSPECIAL CONDITION 


SCc= B1T15 
BIE= 8 

SCE= 
RAR= 








NBA= 81T10 FER ADDF...SS 
HIADDR= BIT9!BITS EXTENDED ADDRESS BITS 
SSR= BIT? ;SUB SYSTEM READY 


sOFF LINE BIT 
sFATAL TERMINATION ERROR CODES 
s TERMINATION CODES 


OFL= ates 
FATERR= BIT4!BIT5S 
TERCLS= B1T3!B1T2!B1T1 


+ 


It oO FOR EXTENDED STATUS REGISTER 0 


Se Ge Ge Se Ge Ge 
~@w 


sTAPE MARK DETECTED 
RECORD LENGTH SHORT 
oGICc OF 


XSOTMK= BIT 






WRITE LOCK ERROR 
sNON EXECUTABLE FUNCTION 
GAL COMMAND 


ILLE 
ILLEGAL ADDRESS 
TAPE IN MOTION 





XS0B0 
XSOEOT= B1T0 


3¢ 
Ase FOR EXTENDED STATUS REGISTER 1 


SEG 26 





























* 


Q27 | 
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TuB0 REGISTER AND PACKET DEF INITIONS 
992 100000 X1.DLT = B1T15 DATA LATE | 
993 040000 %1. SPARE= 1114 ;NOT USED | 
994 020000 X1.COR = BIT13 CORRECTABLE DATA ERROR 
995 017375 X1.MBZ = or TIZBIT11sBITIOCBITOSBIT? OBI T6SBITS*BITe+BIT3+BI T29B1T0 SALWAYS 0 
996 000400 X1.RBP = B1T8 sREAD BUS PARITY 
997 000002 X1.UNC = BIT1 SUNCORRECTABLE DATA OR HARD ERROR 
999 fe 
1000 “BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
oH 3 (xST2) 
1003 100000 X2.0PM = 1115 s OPERATION IN PROGRESS (TAPE MOVING) 
1004 040000 X2.RCE = HECKSUM 
1005 035400 X2. SPARES BIT 1Sesrri2eBiritoBiT9°BIT8. SNOT USED BY TUBO (ALWAYS=0) 
1006 002000 X2.WCF = BIT10 E CLOCK PATLURE (FIFO NOT ENPTIED BY TRANSPORT) 
1007 000200 42. EXIF = B17 ITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
1008 000100 %2.BUFE = BIT6 SIF WRITE CHAR CMO THEN = BUFFERING ENABLED 
1009 000077 X2.REV = 000077 “IF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
1010 000007 X2.UNIT = B1T2¢B1T1+B1T0 SIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
1012 3¢ 
1013 “BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
bb a 3 (xST3) 
1016 177400 X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
000200 X3.SPARE= BIT7 SNOT USED BY TUBO 
000100 = BIT6 [OPERATION INCOMPLETE 
000040 REVERSE 
000020 S TRANSPORT RESPONSE FAILURE 
000010 = BIT3 “DENSITY CHECK 
000006 x3 =8172+B1T1 “NOT USED ALWAYS 0 
000001 X3.RIB = BITO SREVERSE INTO BOT 
3* 
“BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
> (MST4) 
100000 X4.HSP = BIT1S HIGH SPEED 
040000 X4.RCE = BITI4 SRETRY COUNT EXCEEDED 
020000 .1SM = BIT TRANSPORT SPECIAL MODE 
017400 X4.MB2 = BIT sBITITHBITIOCBITONBITS SNOT USED ALWAYS 0 
377 X4.WRC = ITE RETRY COUNT FIELD 
;¢ 
sTSSR TERMINATION CODES (BIT 0-2) 
000006 TSREJ= 322 sCOMMAND REJECTED | 
000006 UNREC= 6 “UNRECOVERABLE ERROR 
| 


DEVICE REGISTER OFFSETS 





cme ae ee 


¢ 3 
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6 TSBA== <2 
177776 TSBAL== <2 
177776 TSDB== <2 ;TSOB/TSBA REGISTER 
177776 TSDBL== <2 :TSOB/TSBA REGISTER 
177777 TSBAH== -1 
177777 TSDBH== -1 ;TSDB/TSBA REGISTER HIGH BYTE 
000000 TSSR== 0 :TSSR REGISTER 
000001 TSSRH== 1 ;TSSR REGISTER HIGH BYTE 


2@ 
; TSDB ADDRESS BIT DEFINITIONS 
000003 A1716 = BIT1+B1T0 sADDRESS BITS 17:16 ARE IN 1:0 


26 
> COMMAND DEFINITIONS 
000017 P.GETSTAT 


= 17 sGET STATUS 
000013 P.INIT = 13 s INITIALIZE 
000012 P. CONTROL = 12 sCONTROL COMMANDS 
000011 P.FORMA = 11 ; FORMAT 
000010 P.POSITION = 10 sPOSITION 

P.WRT = 6 sSUBSYSTEM WRITE 

000005 P.WRITE = 5 sWRITE 
000004 P.WRTICHAR = 4 sWKITE CHARACTERISTICS 
000001 P.READ = 1 sREAD 


ot 
: COMMAND PACKET HEADER WORD BIT DEFINITIONS 





















100000 P.ACK = 81715 :BUFFER AVAIL FOR CONTROLLER 
040000 P.cvC = BIT14 sCLEAR VOLUME CHECK 
020000 P.OPP = BIT13 *REVERSE SEQUENCE OF DATA BITS 
010000 P.sweB 4 = BIT12 sSWAP BYTES IN MEMORY 
007400 P-MODE = BITI1'BITIO'BITO'BITS sEXTENDED COMMAND MODE FIELD 
000200 P.IE = B1T7 s INTERRUPT ENABL 
000140 P.FAT= BIT6!BITS “PACKET HEADER TYPE (ALWAYS=0) 
000037 P.CMD = 37 “MAJOR COMMAND FIELD 
; “CONTROL COMMAND MODE CODES 
000000 PC .RELEASE s 09256. sRELEASE BUFFER 
000400 PC. REWIND = 12256. *REWIND 
1094 001000 PC .NOOP = 20256. 3N0-0P 
1095 002000 PC. IEREW = 42256. sREWIND IMMEDIATE INTERRUPT 
10% 002400 PC.ERASE = 5*256. sSECURITY ERASE 
1098 30 
H+ +.44 : CONTROLLER RAM DEFINITIONS 
1101 000167 RMCHBEG = 167 sCHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
1102 000200 RMCHEND = 200 > CHARA WARACTERISTICS 10 DATA END RAM ADDRESS 
1103 000020 RMPKTBEG= 20 *COMMAND PACKET BEGIN RAM ADDRESS 
1104 000027 RMPKTEND= 27 : COMMAND PACKET END RAB ADDRESS 
1105 000104 MMSGBEG= 104 _ -_ 
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1 DEFINITIONS 
RAMSGEND= 117 SMESSAGE BUFFER END RAM ADDRESS 
“REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
xSTO== 6 
xSTiz= 8. 
xST2== 10. SEXTE 
xST3<= 12. SEXTENDED STATUS REGISTER 
MST4== 14. SEXTENDED STATUS REGISTER 
4 
“OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
PKLOW = 2 LOW ORDER CHARACTERISTIC DATA POINTER 
PKHI = “HIGH ORDER CHARACTERISTIC DATA POINTER 
PKBCNT = 6 “NUMBER OF BYTES IN DATA PACKET 
EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 
4 
“DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
= 0 
= 1 
= 2 
= 3 
= 4 
= 5 
= 6 s 
27 “WRITE TAPE FORMAT 
= 10 “WRITE MISCELLANEOUS 
= 11 “WRITE NPR CONTROL 
= 20 ; 
“p11 = 21 ; 
.d13 = 22 ; 
Pw.NO1311 = 23 s 
SRDEX = 2% 
2¢ 
SBSEL1 CODES FOR WRITE TAPE CONTROL 
WC.IFAD = & T7 4 .| | ied Riatel. . Meise ee 


SEQ 29 





} 
' 
' 
ee ct A TT 


—E 3 


























SEQ 30 
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TUBO REGISTER AND PACKET T DEFINITIONS 

1163 000100 WC. 10TAD = BIT6 

1164 0600040 WC. 11TAD = 8175 

1165 000020 WC. ISRESV = BIT4 

1166 000010 WC. IREW = B1T3 

1167 000004 WC. IRWU = B12 : © REWIND OAD 

1168 000002 WC.IFEN = BIT1 sIFEN = FORMATTER ENABLE 

1169 000001 we.J = BITO 360 

1170 

1171 

1172 FORMAT 

1173 

1174 000200 sIHISP = HIGH SPEED 

1175 000100 sI1WRT = WRITE 

1176 000040 s IREV - REVERSE 

1177 000020 sIWFM 86 = WRITE FILE MARK 

1178 000010 sJEDIT = EDIT 

1179 sIERASE = ERASE 

1180 000002 I3RE SIRESV3 = RESERVED #3 

4 000001 WF. I4RESV = BITO sTRESV4 = RESERVED #4 

1183 

1184 3¢ 

Hb *BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 

1187 000200 MS.EXT = BIT7 s INVERT SENSE OF EXTENDED FEATURES SWITCH 

1188 000020 MS.RSFIFO = BIT4 sRESET FIFO AND INPUT PARITY ERRORR 

1189 000010 MS.RSTAPE = BIT3 SRESET TAPE STATUS IN : FLIP-FLOPS 

1190 000006 MS.ATIN = BIT2'B1T1 *ATTENTION TRIGGER FIELD 

1198 000001 MS.RSD = BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 

1195 : MS.ATTIN SUBCODES 

1195 000000 MSA.NOP = 0¢2 :NO-OP (NOTHING TRIGGERED) 

1196 000002 MSA.VOL = 192 sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

1197 000004 MSA.NRAM= 2¢2 sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

1198 000006 MSA.FRAM= 322 “FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 

1209 ; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

1208 000200 NP.IR = B1T7 s INTERRUPT REQUEST (0-1 TRANSIT LON) 

120 00C100 NP.OUT = BIT6 STAPE DATA DIRECTION OUT (0s IN) 

1 000040 NP.LOOP = BITS sENABLE TRANSPORT LOOPBACK 

! 000020 NP .WRP = BIT4 SWRITE CORRECT PARITY (SET=0 TC WRITE WRONG) 

: of s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

1209 , 

1210 000200 = BIT7 sWORD #9 BYTE 2 DATA IN MISS 

1211 000100 = BIT6 : ILw 

ete 000040 = B1T5 : ouT ROY 4 

121 000020 = BIT4 : IN ROY H 

1214 000010 = BITS : TIMER A FLAG H 

1215 000004 = BIT2 i TIMER B FLAG H 

1216 000003 = BIT1+B1T0 : (UNDEF 

tet? 100000 = B1T15 SWORD ee evTe 1 PARIN H 

1218 020000 = BIT14 IRESV2 

1219 020000 $1. 11RESV = BIT : : eetnnaratapsae nas insnse 





| 
2 


SEQ 31 
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1220 010000 $1. 1E0T = BITI2 : IEOT L 
1221 004000 $1. 11DENT = BIT11 : IIDENT 
122 002000 $1. 1CER = B1T10 : ICER 
Ag 001000 $1. 1FMK = 8119 : IFAK H 
1224 000400 $1. IHER = 8178 : IHER H 
1225 000200 $0. ISPEED = BIT7 sWORD #6 BYTE 0 ISPEED H 
1226 000100 SO. IRDY = B1T6 ; IRDY L 
ise? 000040  JONL = BITS : TONL L 
ig 000020 - ILDP = BIT4 : ILDP L 
1 4 000010 $0. IDBY = B1T3 ; IDBY L 
1 000004 SO. IRWD = BIT2 : IRWD L 
1231 000002 $0. 1FBY = B1T1 : IFBY L 
1 000001 SO.1FPT = B1T0 ‘ IFPT L 
; 3 SPECIAL KEYBORD STUFF FOR MOVER PROGRAM 
1235 177560 TKS 2177560 sKEYBOARD STATUS REGISTER 
\gse 177562 TKB 2177562 sKEYBOARD DATA REGISTER 
1237 177564 TPS 2177564 sCONSOLE PRINTER STATUS REGISTER 
1238 177566 TPB 2177566 sCONSOLE PRINTER DATA REGISTER 
1 007776 H =00 sHIGH MEMORY MASK VALUE 
1 3 CONTROLLER DEFINITIONS 
1241 174400 217 sSTATUS AND CONTROL REGISTER 
1s 174402 BAR sDL ADDRESS REGISTER 
124 174404 DAR sPLATTER ADDRESS 
re: 174406 MPR sMULTIPURPOSE REGISTER 
1s $ CONTROLLER COMMANDS 
1248 000004 DLGETS =4 sGET STATUS COMMAND 
1249 000006 SEEK =6 sSEEK TRACK AND HEAD SELECT 
1250 10 DLRDHD =10 sREAD SECTOR HEADER 
1251 14 READ sREAD COMMAND 
: 4 16 sREAD SECTOR NO HEADER CHECK 
1 000001 sDRIVE READY BIT IN STATUS REG. 
125 ak sSTATUS AND RESET 
177730 

















1 sMASK FOR COVER OPEN 

125 sHEADS UNLOADED 

1258 1 sMASK FOR CYLINDER ADDRESS 

. 59 t sDONE SET OR ERROR SET BITS 

1261 177560 sKEYBOARD INPUT STATUS 

i 177562 sKEYBOARD DATA REGISTER 

1 177564 sCONSOLE PRINTER STATUS REGISTER 
+ 177566 sCONSOLE PRINTER DATA REGISTER 


ee re ee | 
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SPECIAL MACROS AND OPDEFS 








ice? -SSTTL SPECIAL MACROS AND OPDEFS. 
1 

1 3+ 

; :SAVE GENERAL REGS 1: TO $5 

1 e 

1 -MACRO SAVREG 

; JSR RS ,REGSAV 

1 & 





3;* 

° MACRO TO FORCE AN ERROR 

“MACRO FORCERROR TAG, NOTSSR 

“LIF NDF LISTALL, .NLIST 

“LIST 

IF B NOTSSR 
MOV 


BRRRRRRR 
SPSsa sys 


shi TSSR(RS) RI SREAD TSSR 
: MOV FORCER, FORCER sIS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG BR IF YES 


oNLIST 
ri pe LISTALL, .LIST 


& 


MACRO TO FORCE AN ee TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS oop 





BPZRSIIISESE 





298 RE oe ERRORS AND EXIT ON 1 ERROR S 

S00 TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

ss =AACRO FORCEXIT TAG 

304 olIF NDF LISTALL, .NLIST 

305 oLIST 

306 OV FORCER ,FORCER 31S FORCER NEGATIVE? 
308 BAI TAG sBR IF YES 


eNLIST 
oJIF NDF LISTALL, .LIST 
LIST 


310 . 

311 * 

ag :¢ 

aS ; “AACRO TO INCREMENT ERROR COUNTS 
315 “MACRO NEXT .ERRNO 

39 oNLI 

aH 3330]F NDF Ao i al 

319 IIF NDF LISTALL, .LIST 








el eel celle cella eal el ells cl el cel el cl eels eels eels els el cells cls el eed enced el cel eels eed os ees ee ee ce ee eed ce es eel ee 


SESS 


’ 
; 
—— = ee ee ee Oe ee ee Se ES 


ee ee 
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SPECIAL MACROS AND 


Se 


PENI SSSeS 


Wiis 
NES 


el ee ed el ee eS 
FERRER EuC 
MEW SS 


> 
No 





002144 000000 


sMACRO TO PERFORM XOR 


MOV A,-\tsP) 
BIC B, (SP) 
BIC A.B 

= (SP)+,B8 


EN=0 ;_ INITIALIZE ERROR NUMBER 
~SBTTL FORCER - FORCE ERROR FLAG 


THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


FORCER: : . FORCE TYPE ALL HARD ERRORS (THE + ans - 
- BY THE MACRO ““IFERROR’'). AN ERROR NEED 
: = EXIST, JUST ASSUME AND TYPE THE MESSAGE. 





SE@ 35 


—_-<—<—- 


PO - 


eu ee ere ee ee ee ee eee ee 


1 3 | 

Q | 
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GLOBAL DATA SECTION 




































1349 -SBTTL GLOBAL DATA SECTION 

1350 

1351 3¢¢ | 
135 * THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
135 sIN MORE THAN ONE TesT. | 
1354 : 
1 

1357 “THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 

> ; SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 

1360 002146 000000 EPRTSW:: WORD 0 sPRINT SWITCH 

1361 002150 000000 UNITN:: -WORD 0 UNIT # UNDER TEST. 

1ste 002152 000000 QVP:: eWORD 0 ;QUI CK VERIFY FLAG. 

1363 002154 000000 CSRADDR: : eWORD 0 SS OF CSR FOR CURRENT DEVICE 

1364 002156 000224 IVEC:: WORD 224 TOR 

1365 002160 000200 IPRI:: -WORD PRIOG ORITY. 

1366 002162 000000 TSTCNT:: -WORD 0 R OF TESTS RUN IN THIS PASS 

1367 002164 000000 LOOPCNT:: WORD 0 REMAINING ITERATION COUNT FOR TEST 

1368 002166 000000 DEVCNT:: -WORD 0 SNUMBER OF DEVICE UNDER TEST 

1369 002170 000000 FATFLG:: WORD 0 :SET If FATAL ERROR IS DETECTED IN TEST 

1370 002172 000000 INTRECV:: -WORD 0 sSET IF INTERRUP RECEIVED 

1371 174 000000 NBSW: : -WORD 0 

EL: 002176 000000 : -WORD 0 s EXPE 

1373 002200 000000 -WORD 0 *RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

1374 002202 000000 eWORD 0 ADDRESS MEMORY ERROR 

1375 002204 000000 WORD 0 sLUW ADDRESS MEMORY ERROR 

1376 002206 16. DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

1377 246 000000 0 RAM DATA SIZE F T ROUTINE 

1378 250 000000 : 0 sRECEIVED BUFFER HIGH ADDRESS 

1379 252 000000 : 0 sRECEIVED BUFFER LOW ADDRESS 

1380 254 000000 0 TEST COUNT PATTERN 

1281 002256 000000 0 sTEST DATA 

1ae posses 000000 0 TEST FLAG WORD 

138 262 000000 0 : TSTBLK POINTER 

1384 002264 000000 0 sPRINT ROUTINE TEMP 

1385 002266 100. sEXPECTED MESSAGE BUFFER DATA 

1386 002432 100. sRECEIVED MESSAGE gt = 

1387 002576 80. s TEMPORARY STORAGE FOR PRINT 

1388 002716 000000 0 STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 








me eae + ee 7 








J 3 
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TSTBLK = TEST DATA TABLE 

1390 .SBTTL TSTBLK = TEST DATA TABLE 

1391 

395 - 

394 “THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

396 TIN SEQUENCE THE DATA IS: 

398 : ALL ZEROS 

399 ; ALL ONES 

400 : WALKING ONES 

401 : WALKING ZEROS 

402 : ALTERNATING ONES AND ZEROS 

40 ; 

404 m 

408 002720 TSTBLK:: 

407 002720 ee ALL ZEROS 


1 
1 
1 
‘ 
1 
1 
1 
1 
1 
1 
1 
1 
‘ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
4 
% 
1 
1 
i 
1 
1 
1 
1 
1 
1 


~ 
~ 
Re 
3 
~ 
~ 


scesss 
aa 
oul 
ad 
SSEEES 
ooo &n)— 


sALL ONES 
sDATA FOR WALKING ONES 


408 
409 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
31 


: 


fs 
732 
734 
736 
740 
742 
st 
746 
7 

752 
754 
756 
762 


ror 
ins 


~ 
3 


4 
‘ 
4 
4 
4 
& 
4 
& 
4 
4 
& 
& 
4 
4 
& 
4 
4 
4 





3 7 76 sDATA FOR WALKING ZEROS 
177775 
7 177773 
428 177767 
& 177757 
4 177737 
431 177677 
4 177577 
% 177377 
4 176777 
435 ¢ 175777 
436 ¢ 173777 
4 167777 
ri . 157777 
& 137777 





440 077777 

sALTERNATING ONES, ZEROS 
ea? 083885 . sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 
1443 0030 TBLEND== 


ee en, ee eo ere te ee - 


zg 3 
















SEQ 36 
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GLOBAL ENVIRONMEKT STORAGE 

Lyre -SBTTL GLOBAL ENVIRONMENT STORAGE 

eee s STORAGE FOR DEVICE REGISTERS 

1449 003030 000000 100000 000000 SUMAY : 0,100000.0 sDUMMY DEVICE REGISTERS... 

1450 003040 000000 000000 000000 0,0,0.0,0, 6. ,0,0 

1451 seeeFOR MULTI-UNIT CHECKOUT. 

13 

1454 003060 000000 -WORD 0 :"DROPPED UNIT’ FLAG. 

1455 : INHIBITS CODE IN ‘*’CLEAN-UP"’. 

bets 003062 000000 WORD 0 “FLAG TO SAY NO DEVICE. 

1458 003064 000000 eWORD 0 sSOME TEMP LOCATIONS. 

1459 00 000000 WORD 0 

1460 003070 000000 -WORD 0 skaaPs COMM BLOCK POINTER. 

1461 003072 000000 -WORD 0 31ST FREE MEMORY ADDRESS... 

1 003074 000000 eWORD 0 Mest IZE CIN WORDS). 

1463 003076 000000 -WORD 0 sLAST WORD IN FREE SPACE 

1464 003100 000000 -WORD 0 skT11. MEM AVAIL FLAG - 

1465 WORD f- <24K OR NO KT - 

1466 s© NZ = >24K AND K 

1467 003102 000000 KTENABLE: : -WORD 0 °SET BY TEST NOUT INES TO FLAG <a UNDER TEST 

1468 003104 002000 PST32u:: -WORD 2000 3:52 BLOCK ADDRESS FOR 32k STAR 

1469 003106 000000 SIFLAG:: WORD 0 

1470 003110 000000 BADDAT: : WORD 0 SAC TUAL DATA 

1471 003112 000000 GDDAT:: WORD 0 SEXPECTED DATA 

ee 003114 000000 LOOPFL:: -WORD 0 

1473 003116 CTAB:: sCONFIGURATION TABLES. 

1474 ease 000000 CTABM:: -WORD 0 sCONFIG WORK. 

1475 003120 000000 WORD 0 

1476 peste 000000 -WORD 0 

1477 003124 000000 -WORD 0 

1478 rise 177777 WORD -'1 sEND OF MEM TABLE. 

1479 0031 CTABE:: 

“ sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 

1482 : 0 = UNIT NOT TESTED 

1483 : 100000 = UNIT ONLINE, NO ERRORS 

1484 : TOMXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

1485 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

1 3 160001 = UNIT DROPPED, NOT IDLE AT START 

be . T4XXXX = UNIT DROPPED, ENCOUNTERED XXXX ERRORS 

1489 003130 ERTABL: -BLKW 64. 

ry 003330 000000 ERTABE: WORD 0 

1492 003332 000000 SKIPT: .WORD 0 s1=SKIP SUBTEST O=NO SKIP OF SUBTEST 


iL 3 
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GLOBAL TEXT MESSAGES 


SEQ 37 


















1494 = .SBTTL GLOBAL TEXT MESSAGES 
14% : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1497 MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1498 : MORE THAN ONE TES!. 
1499 i-- 
1500 
1501 
1 
1504 “NAMES OF DEVICES SUPPORTED 
1506 
1507 003334 DEVTYP <TUBO> 
003334 LSDVTYP:: 
003334 124 125 070 “ASCIZ. /TU80/ 
“EVEN 
1309 i 
1510 STEST DESCRIPTION 
1512 003342 : DESCRIPT <CZTUXAO TU8O FRONT END PRT &> 
003342 LSDESC:: 
003342 103 132 124 “ASCIT /CZTUXAO TUBO FRONT END PRT B/ 
1513 3+ : 
1514 *BIT TO ASCII CONVERSION FOR TSSR REGISTER 
1516 . 
1517 003400 003440 43 003447 TSSRBIT:: .WORD 1%,2$,38,4$,5$.6$,78,88 
1518 003420 003501 003505 003511 WORD 9$,108,11$,12$.13$, 148, 15S, 16S 
1519 003440 123 103 000 18: ASCIZ "SC" 
1520 003443 108 111 105 28: -ASCIZ ‘BIE° 
1521 003447 12 103 105 3$: “ASCIZ "SCE' 
1528 00 53 122 115 122 4$: “ASCIZ RMR’ 
15 003457 116 130 115 5$: -ASCIZ «°NXM® 
15 3463 116 102 101 6$: -ASCIZ "NBA 
1525 003467 102 111 124 7$: -ASCIZ °BIT9° 
1526 003474 102 111 124 8$: -ASCIZ "BITS" 
1527 003501 123 123 122 98: -ASCIZ SSR’ 
15 003505 117 106 114 108:  .ASCIZ ‘OFL' 
gam iat a Si 
133 gosses 102 111 126 13$: .ASCIZ “BIT3° 
1582 0035 102 111 126 16$:  .ASCI2Z T 
1533 003535 102 111 124 15$: .ASCIZ 
1554 003542 102 111 124 168: “ASCIZ 
1536 003550 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
153 003603 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
1538 060 040 116 WER:  .ASCIZ / WON-EXISTANT DEVICE REGISTER/ 
130 OOS © OKS_—=S«TOT:«=««OKD. NSSKS«CASCHT /EA. TSBA,TSSR EXP°D: ZOGZA, Z06IN/ 
1541 008736 O45 101 AD -ASCIT /3A TSBA,TSSR REC'D: 206%A,206/ 
308 Speoet 060 0640 125 USI: .ASCIZ / UNEXPECTED INTERRUPT/ 
1544 004050 040 040 111 ee / _INTERR (PECTED. NOT R : oe _ 





ee ee -” ——~— -_— 





a 3 


SEG 56 
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GLOBAL TEXT SAGE 











MES 
1545 004113 116 FNOINTR: 
1546 004117 040 040 : Ciz NTERRUPT WAS GENERATED/ 
1547 004154 040 040 Zz AULT/ 
1548 004176 045 101 z : Z06ZA TSBA: %06/ 
1549 004233 040 040 Z DIDN'T INITIALIZE CONTROLLER/ 
1550 004 040 040 C12 ‘ DIDN'T INITIALIZE THE DPU/ 
Ed: 004355 040 040 Ciz BUSARESET DIDN'T INITIALIZE THE OPU/ 
1388 004425 000 z 4 
1554 ere 045 116 C12 /2Nn/ 
1555 004431 045 101 C1Z /2A eet ZO6ZA, REC'D: 2%06/ 
1556 004465 045 116 2 /ENZA EXP'D: ZO6ZA, SO6ENZA REC'D: XOZA, 206/ 
1557 004541 045 101 C1Z /ZA REG(W) WRITTEN TO: Z06ZA REG(R) READ; EXP"D: ZO6ZA, REC'D: 206/ 
1558 004643 122 101 eASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
1559 004711 040 040 2 7 CONFIG DOESN'T MATCH MFG. MASTER/ 
1560 004754 127 ‘ec 2 ‘WRITE CHARACTERISTICS Failed’ 
1561 005011 124 123 Z ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
1306 005104 12.4 123 = *TSSR Incorrect After READ Command, More Bits Set Than SSR‘ 
1564 
1565 
1566 


/< A EE Eee 


mr ee nn i ree me ee 
a ee 2 eS ——EE memset cee —— 


CZTUXAO TU8O FRONT END PRT B 
GLOBAL E 


ERROR REPORT SECTION 


26 
005226 


1591 005262 


013746 
2746 


01 
206 012746 
010600 


104415 
062706 
004737 


104423 


005727 


000000 
001402 
004777 


012746 
012746 
010600 
104415 
062706 
000207 


003062 
003675 
000002 


000006 
005230 


177770 
004426 
000001 


000004 


ee re ee | 
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-SBTTL GLOBAL ERROR REPORT SECTION 


soe 

; THE GLOBAL ERRO® REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
; CALLS THAT ARE USED IN MORE THAN T. 
; _ TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 





NXRERR BGNMSG = NXRERR ;NON-EXISTANT DEVICE REGISTER. 
““PRINTX #NXRX,NODEV SNODEV = NEXM ADDRESS. 
MOV ——- NODEV.-(SP) 


MOV #NXRX = (SP) 
MOV #2,-(SP) 
MOV SP.RO 


TRAP CSPNTX 
ADD #6,SP 
JSR PC ,EXTEND ; PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
CSMSG 


THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 





EXTEND: TST (PC)+ 
EXTA: 0 : 0 = NO EXTENSION. 
BEQ 1$ 
JSR PC ,@EXTA ; APPEND EXTENSION TEXT. 
1$: PRINTX #NULCR ; PRINT A BLANK LINE 
MOV #NULCR,-(SP) 
MOV #1,-(SP) 





MOV SP,RO 





TRAP CSPNTX 
ADD #4,SP 
RTS PC 


CZTUXAO TUSG FRONT END PRT 6G 
PRITSSR - PRINT TSSR CONTENTS 


1594 


un 
S828 


eaaaree 







1606 
1607 
1608 
1609 
1610 
1611 
1612 005264 
1613 005264 
1614 CO5 
1615 005272 
005272 
005274 006105 
005 000002 
005 
005 
Soeare 000006 
1616 005314 
1617 005316 737 016700 
1618 005322 
1619 005324 
005324 006325 
a 00000 
010600 
005 
005340 srt: 000004 
1620 Se atae 
1621 005 001476 
eee 005 of 34 
ies 005 002576 
. ; 005 o 34 
ise 003366 
i) San 
j 005374 10 
1 005376 
1832 Qose0e O08 
168 — 
1634 005412 
16% esate 
1836 ose 
0054 





4 
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177777 


-SBTTL PRITSSR - PRINT TSSR CONTENTS 


-¢+ 


ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 


sTHE TSSR REGISTER. THIS ROUTINE IS 


A MESSAGE PRINTING ROUTINE 
; INPUTS: 


R1 CONTENTS OF TSSR 


NORMALLY CALLED ONLY 


CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


$ SUBORDINATE ROUTINES: 















R1,R4 
#TSSRFOR RS 
R4,- (SP) 
#TSSRFOR,-(SP) 
2.°(SP) 





5$: 





STAPBFR .R2 
#TSSRBIT.RI 








10$: r3 
15$ 
R3 
138 
CR1) RO 
118: (RO)+, (R2)+ 
#*,.71(R2) 
13$: (R1)+ 
15$: 


-(R2) 
@TSSDEF ,@TAPBFR 
STAPBF pe 4 





R4 RS 
SHIADDR!FATERR! TERCLS.R3_ 














sSAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
SPRINT THE CONTENTS OF TSSR 


sGET TSSR BACK FOR CHKAMB 


sARE CONTENTS AMBIGUOUS ? 
BRANCH IF NOT 
SHOW CONTENTS ARE AMBIGUOUS 


sCONTENTS OF TSSR 


sCL ee MULTIPLE BIT FIELDS 





S 
SREMAINING BITS TO CONVERT 
sBRANCH WHEN ALL ARE DONE 





AR CARRY FOR SHIFT 
s SHIFT ste eit BIT TO CARRY 








BRANCH IF BIT NOT SET 
POINTER TO BIT DEFINITION 
MOVE ASCIZ TO BUFFER 





VE a 
INSERT A COMMA TO TERMINATE 
:POINT TO NEXT erate 
GET THE REMAINING BITS 
TERMINATE THE LINE 
SPRINT THE BIT DEFINITIONS 











—erqumers en eee 


SEQ 40 


; 
mw ey ee ES ee 


ED 
an 


— na 


] 
' 
’ 
ee EE ST 


— aaa aaaaaaaaaaaaaaaaaaaaaaallll, rr 


c 4 
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| PRITSSR - PRINT TSSR CONTENTS 















































005430 012746 000002 #2,-(SP) 
005434 010600 SP,RO 
104415 CSPNTX 
062706 000006 #4.SP 
010403 208: RG.R3 GET THE TSSR CONTENTS 
042703 177761 BIC #*CTERCLS.R3 [CLEAR ALL BUT TERMINATION 
016303 006 TCOCOD(R3) ,R3 GET THES TERMINA NATION CODE MEANING 
PRINTX #TCOASC,R3. “PRINT THE TERMINATION CODE 
010346 MOV R3,-(SP) 
012746 006166 MOV #TCOASC,-(SP) 
012746 00000 MOV #2,-(SP) 
010600 MOV SP,RO 
104415 TRAP - CSPRT 
062706 000006 ADD #6,SP 
010403 MOV R4,R3 sTSSR CONTENTS AGAIN 
0642703 177717 BIC #*CFATERR,R3 [CLEAR ALL BUT FATAL TERMINATION 
001421 BEO 25$ SDON'T PRINT IF ZERO 
006203 ASR R35 
006203 ASR R3 
006203 ASR R3 SALINE TERMINATION CODE FOR INDEX 
016303 006726 MOV TSFCOD(R3) ,R3 “GET THE FATAL TERMINATION CODE 
PRINTX #TFCASC,R3 “PRINT THE FATAL TERMINATION CODE 
10346 MOV R3,-(SP) 
012746 006227 MOV #TECASC, (SP) 
012746 000002 MOV #2,-(SP) 
010600 MOV SP, 
104415 TRAP 
062706 000006 ADD 
012737 000031 002170 MOV 728 * FATELG sDROP THIS UNIT AFTER ERROR 
010403 MOV RGR :GET TSSR CONTENT 
042703 176377 #*CHIADOR,R3 SCLEAR ALL BUT EXTENDED ADDRESS 
001411 BEQ “DON'T PRINT I 
BTEXASC,R3 “PRINT THE EXTENDED ADDRESS BITS 
010346 MOV RS,-(SP 
012746 006125 MOV STEXASC ,-(SP) 
012746 000002 MOY #2,-(SP) 
010600 MOV SP, 
104615 TRAP  CSPNTX 
062706 ADD #6,SP 
022704 100210 CMP 6ss«a# 100210, R4 CHECK FOR MEDIA ERROR 
1003 BNE “BR, IF PROBABLY NOT TAPE ERROR = 
12737 006014 002146 MOV #EPRT3,.EPRTSW : PROBABLY MEDIA NELETED ERROR - BAD TAPE 
737 002146 TST EPRTSW “CHECK FOR THE SWITCH EMP 
1003 BNE 3108 “BR, IF SWITCH IS wot wry 
012737 005755 002146 MOV #EPRT1EPRTSW “SET SWITCH TO DEFAUL 
013737 146 005644 MOV EPRTSW, 32$¢2 [PUT REAL SWITCHABLE MESSAGE IN PLACE 
PRINTB #EPRT “PRINT THE ERROR MESSAGE 
MOV = #EPRT1,-(SP) 
mov #1,-(SP) 
MOV SP.RO 
TRAP 
ADD #4,SP 
002146 MOV #EPRT1EPRTSW SRESET TO NORMAL ERROR POINTER 
ats RETURN TO CALLER 
045 .ASCIZ ‘“ENZA seeee CHECK 7454 CABLES AND TRANSPORTeseeeZS” 
1667 005755 045 ASC "2uYA cece ; eeeeedls’ | 


ee 


dD 4 
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PRITSSR - PRINT TSSR CONTENTS 


1668 006014 
1669 





045 


wercslt esed cel co mol al) odd ant 


DP aa NG 
NUVI RVR EEO 


116 


ASAAOOAS 


&euw 
= LN oe 


045 


006457 


eo exe ocd coed cout) awd ecaP coc 
FRGASSUW 


= 
S 
Sas 


bat Led 


<P and ond aod 


EFRTS: 


eASZIZ 


SEQ 42 


“ZNZA eeeeePOSSIBLE MEDIA RELATED ERROR - BAD TAPE*eeee%s° 


"ZNZA TSSR = 206° 

ZNZA Extended Address Bits = %06' 

"ZNZA Termination Class Code = iT° 

‘ ENZA Fatal Termination Class Code = zT° 
e 








ZNZA TSSR Bits Set: IT 
ZNZA TSSR Contents Are Ambiguous’ 


1$, 23,3$.4$, 5$.6$,7$,8$ 

"Normal Terminat ton’ 

"Termination Condition’ 

"Tape Status Alert’ 

"Function Reject’ 

*Recoverable Error - Tape Position One Record Down’ 
*Recoverable Error - Tape Was Not Moved‘ 
*Unrecoverable Error‘ 

"Fatal Controller Error’ 


1$,28,3$.,4 

"Internal _ Failure’ 
*Reserved' 

"Bus Interface or Sanity Check Error’ 
*Reserved' 


—EE es 


—E 4 


oe ° TUsO F T END PRT B MACRO M1200 29-MAR-835 13:52 PAGE 26 
PRIPKT = PRINT 1 THE ADDRESS/CONTENTS OF COMMAND PACKET 























1695 -SBTTL PRIPKT = PRINT * won A ae: OF yee PACKET 
1698 sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
1s ;THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 
1701 * INPUT: 
1703 3 RO NUMBER OF WORDS IN PACKET 
1704 ; R3 HIGH ORDER COMMAND PACKET ADDRESS 
1705 ; RS ADDRESS OF COMMAND PACKET 
1707 : NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 
1710 PRIPKT:: 
1711 007060 SAVREG sSAVE THE REGISTERS 
ay 7064 010005 MOV RO.RS sSAVE NO. OF WORDS IN PACKET 
171 005737 003102 TST KTENABLE sABOVE 28K UNDER TEST? 
1714 001001 @NE 10$ :BR IF YES 
1715 005003 sSET HIGH ORDER ADDRESS TO 0 
1716 010301 10$: + Ay HIGH ORDER ADDRESS 
1717 010400 sGET LOWER ADDRESS 
1718 0061 ° SHIFT BIT 15 INTO C BIT 
1719 006101 sAND INTO HIGH ORDER. 
1720 PRINT PACKET ADDRESS 
01044 
010146 
012746 007264 
6 012746 000003 
010600 
104414 
007126 062706 000010 
1721 007132 010300 15$: sGET HIGH ORDER ADDRESS 
1722 007134 001404 sBR IF NOT ABOVE 28k. 
1723 1 010401 GET os ORDER ADDR Ess 
1726 007140 004737 020252 Sh lh AR6 MAPPING FOR 18 BIT ADDRESS 
1725 010004 :GET RETURNED PAR6 ADDRESS BIAS 
1726 005001 208: sSAVE WORD NUMBER 
1727 012402 258: sGET PACKET CONTENTS 
1728 sPRINT THE DATA 
010246 
010146 
012746 007226 
012746 00003 
010600 
104414 
062706 000010 
1 71 1 sWEXT WORD NUMBER 
1 sDONE ALL PACKET WORDS? 
1731 LOOP TILL ALL DONE 
1 os sJUST A COUPLE NEW LINES 
007210 
007214 01 
007216 
00 062 
He 00 RTS PC sRETURN ; 
1735 00 045 PKTFRA: .ASCIZ ‘ ENZA Packet Word @ZD1ZA = 106 
173% poll 9 045 PKTADD: .ASCIZ ‘ZNZA Packet Address = %01%05° 
Ht fg 1 045 PKINEU: _ *ZNENZA 











A LT LD ALO 
—— lel 


aw 
SEVERE 


~~ 


60 007352 


$33 
S8S8 
gae 


ed dd od cB aad ed and aad aed cod cod ged ed 2 xd ed a ed 
a 
o 
ag ae 
ww 
¥ A) 


sae 
ze 


00 
1769 007410 
wy 007412 


1 

1772 007414 
1773 

1774 


010205 


CZTUXAO TUBO FRONT END PRT B 
PRIBXOR - PRINT EXPD, RECV AND KOR BYTE 


177400 


007414 
000004 
000012 


116 








F 4 
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-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
:¢ 


“PRINT EXPECTED DATA, te gor DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


3 INPUTS: 


Ri RECEIVED DATA 

; R2 EXPECTED DATA 

OUTPUT: 

. RO MOR OF EXPECTED/RECEIVED DATA 


sSAVE THE — 
: EXPEC TED DAT 
j Aan THE EXCLUSIVE OR 


sRO HAS XOR ON RETURN 
RETURN TO CALLER 


045 XORBFOR: eASCIZ ‘ZNZA EXPD: ZO3ZA RECV: ZO3ZA XOR: 203° 


SEQ 44 


' 
ee EE ED EE + ee 


CZTUXAO TUSO FRONT END PRT 6B 


$33 


PErepRrerrrercren 


010203 


46 
007532 
46 000004 


000012 


116 





045 XORFOR: .ASCIZ 
VEN 


G 4 


MACPO M1200 29-MAR-83 15:52 PAGE 28 
- PRINT EXPD, RECV AND XOR 


-SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 


a 


PRINT EXPECTED DATA, rye rt DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


a 

SSSR aut 

‘OUTPUT: 

RO KOR OF EXPECTED/RECEIVED DATA 


sSAVE THE = 
R2 R35 EXPECTED DAT 

R1,R5 sFORM THE EXCLUSIVE OR 
SXORFOR R281, R3 ;PRINT THE MESSAGE 


R1 °=(SP) 
R2,-(SP) 
get ial 


CSPNTB 

#12,SP 

R3,RO sRO HAS XOR ON RETURN 
PC RETURN TO CALLER 


*ZNZA EXPD: ZO6ZA RECV: ZO6ZA XOR: 206° 




















SEQ 45 


———— 
—— nna —_s 


re ES LK 





H 4 





SEQ 46 
CZTUXAO TU8O FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 29 
PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 
1805 .SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
Fa : 
1809 “ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
1810 ;THIS ROUTINE 1S NORMALLY CALLED FROM A PRINT ROUTINE 
1812 INPUTS: 
181 ; 
1814 : RO OCTAL VALUE TO CONVERT 
1815 : Ri TABLE OF POINTERS TO ASCII EQUIVALENT 
1817 :- 
1818 
1819 007600 PRIEQU: 
1820 007 SAVREG sSAVE THE REGISTERS 
1821 007604 000207 RTS PC SRETURN TO CALLER 
1895 
1824 
1825 
1826 .SBTTL PRIRAM = PRINT RAM ADDRESS 
1827 3+ 
1828 3 
1829 SPRINT CONTROLLER RAM ADDRESS. 
1830 STHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
INPUTS: 
: R46 RAM ADDRESS 
PRIRAM: 


sSAVE R1I-R5 UNTIL NEXT RETURN 
sPRINT RAM ADDRESS IN ERROR 





010446 
012746 007636 
7620 012746 000002 
010600 
104414 
062706 000006 
000207 sRETURN 
045 116 045 RAMFOR: ye "ZNZA CONTROLLER RAM ADDRESS = 206° 


-SBTTL PRIADD = PRINT MEMORY ERROR ADDRESS 


ag 


PRINT MEMORY ADDRESS 
THIS ROUTINE IS NORRALLY CALLED ONLY FROM PRINT ROUTINES. 


IMPLICIT INPUTS 
ERRHI] <= HIGH ORDER ADDRESS 


')) ame . 
ms | Asi om-—= 





CZTUXAO TUSO FRONT END PRT B 
PRIADD <- PRINT MEMORY ERROR 


002202 
002204 








007750 
000003 
706 000010 
116 
1 
1 
1876 
1877 01 
1878 01 
1879 01 013700 002202 
1880 01 013701 002204 
1881 4 010102 
Hey 1 006101 
1885 01 1 
1684 01 
01 010246 
01 010046 
01 012746 010064 
01 012746 000005 
010052 010600 
1 104414 
4 4 062706 000010 
1885 01 000207 
010064 045 116 





045 PRIAO: 


I 4 


MACRO M1200 29-MAR-B3 15:32 PAGE 29-1 
ADDRESS 















SAVREG sSAVE RI-RS UNTIL NEXT RETURN 
OV ERRHI,RO sGET HIGH ADDRESSS 

MOV ERRLO,R1 GET LOW 

MOV R1,R2 :COPY LOW ADDRESS 

ROL ;SHIFT BIT 15 TO C BIT 

ROL sSHIFT INTO HIGH ORDER 
PRINTB #PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
MOV R2,-(SP) 

MOV RO,-(SP) 

MOV #PRIAO,-(SP) 

MOV #3,-(SP) 

MOV SP,RO 

TRAP CSPNT 

ADD #10,SP 

RTS PC ;RETURN 


cy "ZNZA MEMORY ERROR ADDRESS = %01205° 





T MEMORY 


ADDRESS 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 





: IMPLICIT INPUTS 
ERRHI 





- HIGH ORDER ADDRESS 
ERRLO = LOW ORDER ADDRESS 


PRITADD: 


045 PRITO: 





SAVE R1-R5 UNTIL NEXT RETURN 
ERRHI RO ; ADDRESSS 
ERRLO.R1 





sSHIFT INTO HIGH ORDER 
sPRINT MEMORY ADDRESS IN ERROR 


RO 
#PRITO,RO,R2 
2,°(SP) 





: 
"eeshs 
seasas 


RTS 3 RETURN 
a "EZNZA MEMORY TEST ADDRESS = %01%05° 


SEQ 47 


——_ -o< = 
= oe 2 eee = 
a! _—~ 
EL LLL LLL 
————— — 
nl 


a 


SOOODOOOCOOOOO oo 
SRS eS Sees ee SSSSS3SSss3ssssessess 


ooococoece|ececscecsoesssssssesesco 
conde 





SSFSSNSSSSES 





ont oe end and cok oad ot ad ed ee ed ed ed ce oe ce oe ce ee ed ed ced ed ee ee ee ed ed a ed ced ed od 


MOLL 


19 

1 

1 

1927 

1928 01 

1 

19 

1931 

19 

1933 010274 
1934 010276 


0 
1937 010302 000207 





012737 
012737 
005703 





CZTUXAO TUBO FRONT END PRT B 
SPACE 


0600764 


010312 


100000 
010312 
000400 
010310 
177776 
017104 
000250 
002116 
177772 
177756 
010520 


MACRO M1200 
= SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010320 
140010 010310 


010310 


woe wee ee ee 


J 4 
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™ -SBTTL SPACE <= SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
; ROUT INE i. ISSUE A 2 as RECORDS 
COMMAND ( FORWARD OR REVERSE) 
























: NUMBER OF RECORDS TO BE SPACED OVER 
: BIT15 CONTROLS DIRECTION 
; BIT15 = 0 IS FORWARD 
; BIT15 = 1 IS REVERSE 
: RS FIRST DEVICE UNIBUS ADDRESS 
Scenes: REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
: CARRY SET = SPACE RECORDS ry OK 
: CLR = SPACE RECORDS FAILED 
: RO THE CONTENTS OF R4 IS MOVED TO RO 
‘atta OUTPUT: 
HAS BEEN MOVED cal 
3 SIDE EFFECTS: 
SPACE: : 
SAVREG sSAVE THE Senn. REGISTERS 
MOV #500. .SDELAY :SET UP DELA 
#140010 ,80$ sSET UP CONPUND. SPACE FORWARD 
RS : CHECK FOR DIRECTION 
5$ :BR, F REVERSE INDICATED 
R3,90$ SsLOAD UP NUMBER OF RECORDS TO SPACE 





260 DO COMMAND 
:CLEAR goog BIT 

sLOAD UP R OF RECORDS TO SPACE 
sSET REVERSE BIT IN COMMAND PACKET 


: 
#8111583 
#B118,80S 


























10$: #808 ,R4 T UP R& WITH PACKET ADDRESS 
R4, TSDBC(RS) 3 SEND T COMMAND 
158: PC WALTF WAIT FOR _ 
:BR, IF SSR IS SET AND OK 
250 sDELAY aaouT. 25 SECONDS 
MOY #250, (PC)+¢ 
WORD 
MOV LSOLY, (PC)+ 
WORD 
DEC -6(PC) 
BNE 274 
od =22(PC) 
DEC SDELAY 3 ELAY COUNTER DOWN 
BNE 158 § MORE DELAY 
ee 608 3 TROUBLE CARRY = CLEAR 
208: MOY TSSRCRS) RI 5 
MOY #SSR,R2 3 
25$: CAP R2,R : 
BES 4 sBR, 
ar 60% sTROUBLE EXIT 
SEC :SET CARRY NO TROUBLE 
BR 70$ : 


STARRY CLEAR = ERROR 
sPASS PACKET ADDRESS 
2 bade 


3 

S 4 
e ee 
o 
a 
eo 


R4,RO 
PC 


as 
_~ 
w 


SEG 46 


—— . —— 
— 


CZTUXAO TUSO FRONT END PRT 8B 
SPACE <= SPACE RECORDS (FORWARD AND REVERSE) C 


1938 


3 


1942 010304 
1944 


ss al 


K 4 
MACRO #1200 > 13:32 PAGE 30-1 








[PACKET FOR SPACE COMMAND 
: -BLKB 0 19=<, = TUV2A87> 








COMMAND WORD 
80S: WORD 
*NUMBER OF RECORDS TO BE SPACED OVER WORD 
90$: WORD 
WORD 
WORD 
SDELAY: .WORD 0 sDELAY COUNTER 


SEQ 49 


RSs ny TUSO FRONT END PRT B 


L 4 
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WATCHR = WRITE CHARACTERISTICS COMMAND 





2 220 —s 


See 


SESE See 


ae eB ee ned ee cod om ood ao eB ond ed 


= 
ss 


etd ed eld et cet el ct ee ee oe ed ed ee oe ae ed 


Seseessssssessss 


as 


ett wedi onchi wi ank en call 


22 
FRE 
Renae 


002174 
177776 
017220 
000000 
000200 
000100 
000100 


emg eee a 


-SBTTL WRICHR = WRITE CHARACTERISTICS COMMAND 


ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
3 COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


3 INPUT: 


sOUTPUT: 


SINPLICIT OUTPUT: 


:S1DE EFFECTS: 


BENBSW 
108: MOV R4, TSDBCRS) 
JSR — 


Bcs 
BR 60$ 
208: OV TSSR(RS) RI 
MOV #SSR,R2 
BIT #OFL, 
BEQ 25$ 
BIS #OFL R2 
258: CMP R2,Ri 
BEQ 40$ 
BR 60$ 
40$: ADD #8. .R4 
MOV (R4) RB 
MOV R3,MESBFA 
SEC 
BR 708 
60$: cic 
70$: OV TSSR(RS) RO 
RTS PC 


RO TSSR CONTENTS 
CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


RG ADDRESS OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLL 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


sSAVE THE GENERAL REGISTERS 
> CLEAR BUFFER ENABLE SWITCH 
B: COMMAND 


FOR SSR 
2 "I SSR_IS SET AND OK 
IF a CARRY = CLEAR 
;SET UP EXPECTED 
a iF OF F es . SET IN TSSR 


IF NO 
SAKE THEM LOOK ALIKE 
‘i. 











E 

TO WRT CHARA DATA PACKET 
T ADDRESS OF Salorte BUFFER 
T ROUTINES 





sCARRY CLEAR = ERROR 
;RETURN TSSR CONTENTS 
;RETURN 


SEQ 50 


' 
OE A eT 


ee 
—— a ne 


a ee eet 


ee ees re ree 





2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2620 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2035 
2034 
2035 
2036 
2037 
2038 
2039 010424 
2040 010424 
2041 0104 
2042 010434 
2043 010440 
ag 010444 
5 010450 
2046 010452 
010452 
010456 
010460 
ie 
0104 
010474 
010500 
2047 010502 
2048 010504 
2049 010506 
010510 
1 010512 
3 010514 
2055 010520 
2056 010520 
2057 010522 


012727 
000000 
013727 
000000 





CZTUXAO TUBO FRONT END PRT B 
REWIND <= POSITION TAPE (REWIND) COMMAND 


010520 
177776 
000550 
017104 
000372 
002116 
177772 
177756 


nm 4 
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-SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 


;THIS ROUTINE WILL KEWIND THE SELECTED TAPE. 


CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


; CALLING SEQUENCE : 
DO A SOFT 
1) 


INIT 
0 A WRITE CHARACTERISTICS 
JSR PC REWIND 


INPUT: 
RS FIRST DEVICE UNIBUS ADDRESS 
OUTPUT 
RO THE CONTENTS OF R4 IS PASSED TO RO 
REWIND: : 
SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
@RUPACK ,R4 GET PACKET ADDRESS 
MOV R4, TSOBCRS) > SEND PACKET ADDRESS TO EXECUTE 
MOV #360., sENOUGH TIME FOR 2400° REEL TO REWIND 
10$: PC .WAITF WAIT FOR SSR TO SET 





208 SLEAVE WHEN SSR IS SET 
250. sWAIT FOR .25 SECONDS 
#250. ,(PC)+ 
LSDLY,(PC)+ 
-6(PC) 
=22(PC) 
.-20 
sBUMP COUNTER DOWN 
108 sKEEP GOING 
“CLEAR CARRY TO SET ERROR 
208: R4,RO sPASS THE PACKET ADDRESS 
10-<.-TUv2Ae7> ° 
RWPACK: 
102010 sPOSTION COMMAND (REWIND) 
0 SNOT USED 


SEQ 51 


' 
; 
CL LL LLL, LLL LLL LLL LL 


ee . 


-_—-—- eee TL 


CZTUXAO TUSO FRONT END PRT B 


CKRAAM 


2059 


2087 010524 
2088 pA > 
3 94 012701 


POPIPORIPOPUTORIAIPO 
eS atatates 


SBLESFESSS 


oococe]o 
ee ee ee ee ee ee 


ae 
i=] 


012702 


002206 
000020 


017220 


7 017220 
177777 


017220 
177776 


7 000027 


1 
u 000010 002246 


:* 


-SBTTL 


N 4 


MACRO M1200 29-MAR-83 13:32 PAGE 35 
- COMPARE RAM TO 1/0 PACKET 


CKRAM = COMPARE RAM TO 1/0 PACKET 


;ROUTINE TO READ THt FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


INPUT: 


OUTPUT: 


CKRAM: : 


R4 
RS 


CARRY 


:S1DE EFFECTS: 





ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


poem OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 


DATA HELD IN 
RAMSIZ IS set" TO 8. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 


er ee oe ee - 


#RAMDATA,R1 SADDRESS TO SAVE THE RAM DATA 
#RAPKTBEG, sBYTE ADDRESS OF FIRST RAR DATA 
R3 sCLEAR THE ERROR FLAG 

PC .CHKTSSR sWAIT FOR SSR 

PC .CHKTSSR sWAIT FOR SSR TO SET 

RZ, TSOBH(RS) SELECT NEXT RAM ADDRESS 
PC.CHKTSSR sWAIT FOR SSR TO SET 
TSBALCR5).(R1) READ T DAT 


(RID, (RO) + : 




















HE RAM DATA 
COMPARE TO EXPECTED 
H IF OK 











20 
R3 RROR FLAG 
R2 “ADDRESS OF NEXT RAM LOCATION 
R2,@RMPKTEND | :REACHED END YET ? 
10$ SBRANCH TILL ALL READ 
R3 sWAS E 
30s SBRANCH IF NOT 
SCLEAR CARRY TO SHOW ERROR 
50$ SAND EXIT 
SHOW ARE 
#8. ,RAMSIZ “SETUP RAMSIZ FOR PRAMPKT ROUTINE 
PC RETURN 





SEQ 52 


al 
' 
; 
ED 


rrr eee. Cre _C OEE EEE 


OCOnrewilur 


PIPIPOPIRIPO POR POP PI PU RIO PI PI RIPI PI POPU PO PO POPU POPUP DIMI MIMO POMI NRL POD 
a a ce ae ed ce ee ed cd ed od ed ed ed 


BUREAUS SSSVSERFANS SSSR RUNS 


coo 
~ 
= \ 


010716 


SSSSREREEEEEERS 


CZTUXAO TUBO FRONT END 
RAMER = READ AND DISPLAY SELECTED RAM 


015705 
12701 





PRT 8B 


011012 
002206 
011010 
002246 


002246 
011010 


000001 


8B 5 
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-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 


“ROUTINE TO READ THE SELECTED RAM LOCATIONS 
: INPUT: 


; RS FIRST DEVICE UNIBUS ADDRESS 
; CONSOLE WILL ALSO BE PRINTED TO 


‘IMPLICIT OUTPUT: 


; THE TABLE RAMDATA IS FILLED WITH THE 


DATA HELD IN RAM. 
:SIDE EFFECTS: 





sSAVE THE GENERAL REGISTERS 

SRESET RS TO FIRST DEVICE REGISTER 
ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF THE FIRST RAM DATA 
;SET T AD UP 











HKTSSR « 
TSBAL(R5),(R1)* :READ THE RAM DATA 
#1,R2 sADDRESS OF THE NEXT RAM LOCATION 
R3,108 NUMBER OF LOCATIONS COUNTER 
RARSIZ..R4 sGET THE RAM SIZ 
RAMHLD ,R2 
R2,R4 


E 
:GET THE STARTING RAM ADDRESS 
#1 ,R4 
TX @#RAMIOP.R2,R4 
R4,-(SP) 








sCALCULATE THE END ADDRESS 
;CORRECT VALUE OF PRINTOUT 
sRAM ADDRESS = 10 - 17, ETC. 


ggagescegegeez2z22e2s 


s ADDRESS OF WHERE RAM DATA IS 
30$ ZE OF THE RAM FIELD READ 





sGET RID OF SIGN EXTEND 
3010 211 111 222 377 000 123 134 ETC.” 





2155 011006 $69 98370¢ oooooe op wt wt eae 


eee a ee ee 


seo S3 


EE ee 


3 


— ee - ee a 





EO 54 

CZTUXAO TUBO FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 34-1 ’ 
RAMER - READ AND DISPLAY SELECTED RAM 

$136 011006 000207 50S: RTS PC RETURN 

2158 011010 9 sRAM ADDR > er ist ADDRESS 

2159 011012 000000 0 sHOLDS RS F ATER 

2160 011014 045 116 "ZNZA Ram Address (Octal) = “0 ZA = ZO3EN° 

sigs 011055 045 101 "ZA ZOSZA 





EVE 
216 


—— ee a 


— ee ee ee ee ee ee 


——_- —as —-—  o- —_ 





a a 
| b 65 
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MACRO #1200 wale 
CKRAM2 <= COMPARE RAM TO 1/0 CHARACTERISTICS DATA 








gi4s : .SBTTL CKRAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA 
2167 ; 
2168 sROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM 
A 44 sMEMORY AND COMPARE THIS DATA TO A OMARACTERISTICS DATA BLOCK. 
2171 : INPUT: 
oe 3 
21 : R4 ADDRESS OF THE CHARACTERISTICS DATA 
ei7% : RS FIRST DEVICE UNIBUS ADDRESS 
* OUTPUT: 





1 


el ce el ed ed ed ee ee 8 8 ae ed nd ee ced ee etd a ed ed oe et 


PRIPIPIPIPIAS PO PI FPI PIPE PO PI RITIRI PI PO ARIPO PO PO POPUP RO POP PUP 
Sasssrssssseseaece 





CARRY SET = RAM MATCHES PACKET 
CLR = RAM DOES NOT MATCH PACKET 


SIMPLICIT OUTPUT: 
THE TABLE yg IS FILLED WITH THE 
DATA HELD IN 
RAMSIZ IS set. 10 "8. OR 10. FOR PRAMPKT ROUTINE 


SIDE EFFECTS: 



































011100 CKRAM2: : 
611100 sSAVE THE GENERAL REGISTERS 
011104 GRAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 
011710 #@RACHBEG,R2 sBYTE ADDRESS OF FIRST RAM DATA 
011114 005003 r3 sCLEAR THE ERROR FLAG 
HER PC CHKTSSR sWAIT FOR SSR 
0111 10$: R TO SET 
0111 SELECT NEXT RAM ADDRESS 
a 0111 004 C, CHKTSSR sWAIT FOR SSR 4 2 
1 0111 TSBAL(RS),(R1) sREAD THE RAM DAT 
soe 011142 CR1)#, (R4)* sCOMPARE TO EXPECTED 
st 011144 208 SBRANCH IF - 
011146 sSET ERROR FLAG 
205 011150 3 ADDRESS OF NEXT RAM LOCATION 
206 011152 002246 sASSUME NORMAL NOT SET 
7 gilts? 6 sREACHED END YET ? 
O11 sBRANCH TILL ALL READ 
ABS 27$: ; AN ERROR FOUND ? 
210 O11 sBRANCH IF NOT 
Tt 011172 sCLEAR CARRY TO SHOW ERROR 
\g 111746 sAND EXIT 
13 011176 308: sSHOW GOOD COMPARE 
S15 11200 50S: PC sRETURN 


ee 


. ——— = 


ES 


CZTUXAO TU8O FRONT END PRT 8 MACRO M1200 29-MAR-83 13:32 PAGE 36 SEQ 56 
CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 


+ -SBTTL CKMSG = COMPARE WRITE CHAR. MESSAGE SUFFERS 


ROUTINE TO COMPASE A WRITE CHARACTERISTICS EXPD AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


































: INPUT: 
; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
: R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
: R2 EXPD MESSAGE BUFFER ADDRESS 
> OUTPUT: 
; CARRY SET = MESSAGE BUFFERS MATCH 
; CLR “MESSAGE BUFFERS DON'T MATCH 
SIMPLICIT OUTPUT: 
: EXPMSG BUFFER IS SET TO EXPD DATA 
; RECMSG BUFFER IS SET TO RECV DATA 
; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
224, F 
é 011202 CKMSG:: 
011202 SAVREG sSAVE RI“-RS5 UNTIL NEXT RETURN 
264 011206 MOV RO,RCVHIADD SSAVE RECV HIGH ADDRESS 
2245 01121 R1,RCVLOAD SSAVE RECV LOW ADDRESS 
2246 011216 KTENABLE STESTING ABOVE 28K? 
2247 O1l222 1 3BR IF NO 
2248 011224 PC, SETMAP *RETURN ADDRESS BIASED TO PAR6 IN RO 
2249 O11 RO,R1 GET RETURNED ADDRESS BIASED TO PAR6 
2250 011 108: : N BUFFER 
2251 011 R3 SCLEAR ERROR SEEN FLAG 
011 R2,RS “GET EXPD BUFFER ADDRESS 
011 01 158: (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
2256 011 (RI) ,RECASG(R4) ;SAVE RECV FOR ERROR REPORT 
2255 011 $0 (R2)+,(R1)¢ SEXPD EQUAL RECY? 
2256 011 253 <BR IF YES 
2257 011254 3SET ERROR SEEN FLAG 
58 011256 258: #2,.R6 “POINT TO NEXT WORD ADDRESS 
on RG, #14 SDONE FIRST 7 WORDS? 
2 1 on #12 EXTE HSTACRSI IS E EXTENDED FEATURES SET IN EXPD? 
on RG #16 :DONE. EXTENDED FEATURES WORD? 
§ 011 50S: R3 SANY ERRORS SEEN? 
266 01131 55% “BR IF NO 
267 O11312 “SET FAILURE 
268 on 14 608 : 
269 11316 55$: SEC “SET SUCCESS 
2270 011 60$: RTS PC * RETURN 


-_ 


—— ne - 
en 


ecm LL —— 
r 


F § 


CZTUXAO TUBO FRONT END PRT B MACRO M1200 29-MAR-83 15:32 PAGE 37 SEQ 57 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 





eSBTTL CKMSG2 =< COMPARE EXPD RECV MESSAGE BUFFERS 


e @e Ge Ge 
+ 





= ROUTINE TO COMPASE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTeED AND RECEIVED BUFFERS ARE STORED FOR 
ZERROR PRINT ROUTINES. 


$ INPUT : 








RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
R2 EXPD MESSAGE BUFFER ADDRESS 

RS NUMBER OF BYTES TO COMPARE 





CARRY SET = MESSAGE BUFFERS MATCH 
CLR - MESSAGE BUFFERS DON'T MATCH 


; IMPLICIT OUTPUT: 
BUFFER IS SET TO EXPD DATA 


RECMSG BUFFER IS SET TO RECV DATA 
RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


<r e@ @e Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


a 
£ 


3 SAVE He 2 NEXT RETURN 





























01 R3,#RECMSG-EXPMSG;@aD IS COUNT ABOVE MAX ALLOWED? 
1 aad BR IF n 

or #RECMSG-EXPRSG,R3; @aD 

01 

01 

01 

: 

+ S$: sSAVE RECV HIGH ADDRESS 

01 : SAVE RECV LOW ADDRESS 

01 STESTING ABOVE 28K? 

01 “BR IF NO 

or RETURN ADDRESS BIASED TO PAR6 IN RO 
i . “GET RETURNED ADDRESS BIASED TO PAR6 

01 108: SWORD IN BUFFER 

01 SCLEAR ERROR SEEN FLAG 

or 158: C82) .EXOmSG(RG) SSAVE EXPD FOR ERROR REPORT 
1 R1) RECMSG(R4) :SAVE RECV FOR ERROR REPORT 

6 cna)s, (RI) ¢ sEXPD EQUAL RECV? 





sBR IF YES 

3SET ERROR SEEN FLAG 

3POINT TO NEXT BYTE 
ALL BYTES? 







sBR IF YES 
++ a BYTE 
Y ERRORS SEEN? 





SEQ 58 
USO FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 37-1 | 
COMPARE EXPD RECV MESSAGE BUFFERS 
11444 000241 CLC sSET FAILURE 
11446 000401 Be 60$ ; 
011450 000261 55$: SEC :SET SUCCESS 
011452 000207 60S: RTS pr sRETURN 
11454 120 122 eASCIZ “PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-'; aad 
011544 045 116 /ENZA = eee/ 
011555 040 04 / TSSR ERROR CODE REC'D = / 
011610 056 056 /eeoe AFTER DOING SOFT INIT/ 
011643 126 105 /TEST: 2. 





‘ei ee A, A At, ee CCl! A ALLA LOL 


CZTUXAC TUBO FRONT END PRT B 
CKMSG2 <= COMPARE EXPD RECV MESSAGE BUFFERS 


56 004737 005264 
004737 020136 


104423 








MACRO M1200 29-MAR-83 15:52 PAGE 58 


3° 


“PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


s INPUT: 

R1 CONTENTS OF TSSR AT ERROR 
;SIDE EFFECTS: 

; EXECUTES DROP UNIT TO CEASE TESTING 


BGNASG SFIASG 


SF IMSG:: 
JSR PC, ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
JSR PC ,CKDROP : DROP UNIT, IF ALLOWED 
ENDMSG 
110003: 
TRAP CSMSG 


SPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 








< INPUTS: 
: Ri TSSR CONTENTS 
: Ré ADDRESS OF COMMAND PACKET 
PKTSSR 
PC .PRITSSR SPRINT THE CONTENTS OF TSSR REGISTER 
4.0 NO. OF S IN PACKET 
PC -PRIPKT PRINT THE CONTENTS OF COMMAND PACKET 
RESBFA,RO SADDRESS OF MESSAGE BUFFER 
R ASSUME NO HIGH MEMORY 
PC PRMESS “PRINT THE MESSAGE BUFFER ALSO 





110004: 
CSMSG 


SPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A GET STATUS COMMAND PACKET. 


‘INPUTS: 





RI TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


SEQ 59 





oa TUBO FRONT END PRT GB MACRO M1200 29-MAR-85 15:32 PAGE 38-1 


- COMPARE EXPD RECV MESSAGE BUFFERS 














2389 011720 on BGNMSG PKIGETS 
2390 011 004737 005264 JSR P* .PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2391 011726 012700 000002 MOV #2,n0 :WO. OF WORDS IN GET STATUS PACKET 
2392 011 004737 007060 JSR PC ,PRIPKT “PRINT THE CONTENTS OF COMMAND PACKET 
2393 O11 ENDMSG 
011734 110005: 
011734 1044623 TRAP CSMSG 
2394 
395 
396 3¢ 
rth sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
2399 s INPUTS: 
2400 : 
2401 : R1 TSSR CONTENTS 
2402 : R4 ADDRESS OF COMMAND PACKET 
2403 3- 
re 
405 or 1706 SFFMSG 
2406 011736 004737 005264 PC PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2407 011742 
011742 
011742 104423 CSMSG 
2408 
2409 
ey .SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
:* 
241 
241 SPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
seit BUFFER FOR ERROR REPORTS 
2416 $ INPUTS 
2417 3 
2418 ; R1 CONTENTS OF TSSR 
2419 : R2 LOW ORDER MESSAGE BUFFER 
oee0 ; B3 HIGH ORDER MESSAGE BUFFER ADDRESS 
tt 3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
s058 011744 BGNMSG PKTMES 
A ag PKTMES:: 
2424 011744 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
2425 011750 01 MOV sLOW ORDER ADDRESS 
011752 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2427 011754 004737 014052 JSR PC, PRRESS sPRINT THE MESSAGE BUFFER 
2428 011760 ENDMSG 
011760 110007: 
011760 104423 TRAP CSASG 


SEG 60 


CZTUXAO TUSO FRONT END PRT B 
ADDSSR ~~ PRINT TEST ADDRESS AND T 











737 005264 


012700 000007 
004737 015406 


104423 


737 010014 
000000 


3 5 





— M1200 29-MAR-83 15:52 PAGE 39 


-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


SPRINT ROUTINE TO PRINT THE CONTENTS OF 
2 TSSR AND A MEMORY TEST ADDRESS 


INPUTS: 





FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
LOW ORDER MEMORY TEST ADDRESS 











ADDSSR 
ADDSSR:: 
PC .PRITADD PRINT onal TEST ADDRESS 
MOV TSSR(RS), R1 ‘GET CURREN 
JSR PC ,PRITSSR sPRINT THE CONTENTS OF ‘SSR REGISTER 
ENDMSG 
110010: 
TRAP C$MSG 


~SBTTL MSGEXP ~ PRINT WRITE CHAR. EXPD-RECV MESSAGE SUFFERS 


:PRINT ROUTINE TO PRINT =“ CHARACTERISTIC MESSAGE BUFFER 

SIMPLICIT INPUTS: 

EXPMSG <- EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNASG MSGEXP 


MSGEXP: : 
#7,R0 sASSUME NO EXT FEATURES 
5$: JSR PC ,PRASGEXP PRINT EXPD/RECV MESSAGE BUFFERS 


110011: 
TRAP CSMSG 
















SEQ 61 


ee ee ee 


CZTUXAO TUSO FRONT END PRT B MACRO M1200 29-MAR-83 15:52 PAGE 40 
FIFEXP =< PRINT FIFO EXP/RECV DATA 


SEQ 62 


2469 -SBTTL FIFEXP = PRINT FIFO EXP/RECV DATA 
sir 44 
aie PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
2476 3 R1 - BYTE COUNT 
26475 ; 
oh s IMPLICIT INPUTS: 
2478 $ EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS £‘.°0 DATA ONLY 
oth : RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
2481 012012 BGNMSG FIFEXP 
012012 FIFEXP:: 
2482 012012 PRINTX #FIF1IMSG,R1 sPRINT BYTES TRANSFERRED 
012014 012746 012064 #F 1F1MSG,-(SP) 
012020 012746 000002 #2,-(SP) 
012024 01 P 
Ot eoes 104415 
0120 062706 000006 #6,SP 
2483 012034 #F LF 2ASG sPRINT HEADER MSG 
012034 012746 012133 MOV #F 1F2MSG,-(SP) 
012040 012746 000001 MOV o~ (SP) 
dt 4 010600 MOV SP, 
01 104415 TRAP CSPNTX 
012050 062706 900004 ADD #4 ,SP 
2484 012054 010100 Moy R1,R0 sGET BYTE COUNT 
2485 012056 004737 015756 JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
2486 orgoes ENDMSG 
01 110012: 
Ot eoee 104423 T CSMSG 
2487 01 045 116 045 FIFIASG: eASCIZ ‘“SZNZA NUMBER OF BYTES TRANSFERRED = 2D2° 
rt: 012133 045 116 045 FIF2MSG: an eASCIZ ‘2ZNZA FIFO DATA BYTES IN ERROR: ° 




















CZTUXAO TUSO FRONT END PRT 6B 
MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 


~SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


2 

2505 012172 
012172 

2506 012172 





BPUMIWUVIW! 
at ad ad a od aod 
CSONOUS 

oooo 

aud ent andi asb ad ad od vant wok eed eet oct aed 









POPIPO PURO PURI POTO 


rR 





2507 012176 0 
2508 012200 


012701 

12100 
001410 
010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 
104423 


012252 
5 


012234 


12706 
2539 012706 012701 012750 








012405 
3 





MACRO M1 


MSGSTAT:: 
MOV 
10$: MOV (R1)¢,RO 
208 





cen a Or eres ees mee OS 


2 


200 29-MAR-85 15:52 PAGE 41 


- 


“IMPLICIT INPUTS: 
EXPMSG 


sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


- EXPECTED MESSAGE BUFFER 


VED MESSAGE BUFFE 


RECMSG = RECEI R 
RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


#@STATCOD,R1 


sASCII ADDRESS TABLE 
;DONE ALL MSG LINES? 


SBR IF YES 
“PRINT STATUS BIT NAMES 


0 
RO,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNT 
ADD #4,SP 
ar 10$ :D0 ANOTHER MSG LINE 
20S: MOV #10. ,R0 sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC ,PRASGEXP sPRINT EXPD/RECVY MESSAGE BUFFERS 
ENDMSG 
110013: 
TRAP CSMSG 
STATCOD: eWORD 1$,2$,38.4$,5$,6$,0 
1$:.ASCIZ ‘ZNZA Tepe Bus seerets in Wor 3° 
2$:.ASCIZ ‘ZNZA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
3$:.ASCIZ ‘ZNZA IRESV2<14> IIDENT<11> IHER <8> JIONL<5S> IFBY<1>° 
4$:.ASCIZ ‘ZNZA IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0>° 
5$:.ASCIZ ‘ZNZA Tape Bus A ope in Word #9:° 
6$: .ASCIZ “a DATMIS<7> ILW<6> OUTRDY<5S> INRDY<4>° 


~SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


-¢ 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


SIMPLICIT INPUTS: 


E 
RECMSG 


XPMSG = EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


' DOPCOL Ri ot. AUD Ar se 


SEQ 635 


a nl 


es 


eel 


ae wee eee eee ——_ oe 


a 5 








SEQ 64 
CZTUKAO Le FRONT END PRT B MACRO 41200 fi 13:32 PAGE 41-1 
MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFE 
2540 012712 012100 108: MOV (R1)+,RO :DONE ALL MSG LINES? 
2541 012714 001410 BEQ 0s 3BR Y 
2542 012716 PRINTX :PRINT STATUS BIT NAMES 
012716 01 MOV R" .-(SP) 
012720 012746 000001 MOV #1,-<SP) 
012724 010600 MOV oRrO 
01 104415 TRAP CSPNTX 
012 062706 000004 ADD #4,SP 
2543 012734 000766 BR 10$ 3:00 ANOTHER MSG LINE 
2736 012700 000012 20S: ROV #10.,R0 NUMBER OF WORDS” IN A READ STATUS BUFFER 
Sete sce Ot3res 004737 015406 ese PC ,PRASGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
012746 110014: 
012746 104423 TRAP CSMSG 


2547 
2548 012750 012770 01304 
2549 eerie 


ie > LOOPCOD: WORD 1$,2$,58,4$,5$,6$.7$.0 
2550 01504 
2551 013142 045 


3 
6 1$:.ASCIZ ‘ZNZA Tape Bus Loopback Signals in Word #8:° 

6 045 2$:.ASCIZ ‘ZNZA PARERR<15 IRESV2<14> IRESV1<13>° 
6 045 3$:.ASCIZ ‘ZNZA IHISP=>1E0T<12> IWRT=>1 IDENT<11> IREV =>ICER <10>° 
045 4$:.ASCIZ ‘ZNZA IWFM =>1FRK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
6 
6 


2553 013340 045 045 5$:.ASCIZ *ENZA I TADO=>IRDY<06> ITAD1=>IONL <05> IERASE=>ILDP <04>° 
2554 013437 045 045 6$:.ASCIZ ‘ZNZA IREW =>1DBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>° 
S352 013536 045 045 7S$:. aa — 1GO =>1FPT<00>° 


2557 





2572 013564 
013564 
2573 015564 
2574 013570 
2575 013574 
01357 
015574 


590 
2591 
3598 013576 
Or etoe 
2594 013576 


595 015602 
596 01 
597 013612 
2598 013616 
013616 


CZTUXAO TUSO FRONT END PRT B 
MSGSUB - PRINT WRITE SuBSYSTEM MESSAGE BUFFE 


012700 000012 
004737 015406 


104423 


007700 
002176 
002200 
007462 


err eee ere ee ee 


MACRO i Seana 13:32 PAGE 42 


- -SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


:IMPLICIT INPUTS: 
EXPMSG = EXPECTED MESSAGE BUFFER 





$ RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

$ RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGSUB 

MSGSUB: : 
MOV #10. ,R0 sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR mC. PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 

110015: 
TRAP CSMSG 


eSBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
+ 


“PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
SIMPLICIT INPUTS: 


ERRHI = MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO = MEMORY ERROR LOW ORDER ADDRESS 
EXP - EXPECTED DATA 
RECV - RECEIVED DATA 


BGNMSG MEMADD 
MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPD,R1 GET EXPD DATA 
MOV RECV,R2 °GET RECEIVED DATA 
JSR PC ,PRIXOR PRINT EXPD/RECV 
ENDMSG 
110016 
TRAP CSMSG 


SEQ 65 


TN 








eceesess 
€ FELLSSLS 


EE 





012701 
005002 
122124 
001000 


CZTUXAO TUSO FRONT END PRT B 


002206 


177777 
177777 


177400 
177777 
177777 
002176 
002200 


013766 
000005 


706 000014 





002246 
002246 


000010 


7? 002246 


116 





MACRO M1200 29-MAR-85 15: P % 
PRAMPKT - PRINT RAM AND PACKET DATA vc lleaiines 


002200 
002176 


045 RAMASC: 


‘+ -SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
; WHEN THE RAM DATA DOES NOT MATCH. 


$ INPUTS: 
R4 POINTER TO COMMAND PACKET 
SIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IN PACKET 


OF B 
IF RAMSIZ=0 THEN DEFAULT TO 8. 
SINPLICIT OUTPUTS: 

RAMSIZ SET TO 0 


~ 


sSAVE R1-R5 ae NEXT RETURN 
#RAMDATA,R1 DATA FROM THE R 

sINIT BYTE NUMBER” 
(R1)+, (R44 ;COMPARE EXPECTED, RECEIVED 
7$ BR IF NO MATCH 
sGET RECV RAM DATA 
:GET EXPD PACKET DATA 
+ XOR EXPD/RECV 


;LOW BYTE ONLY 
:GET RECEIVED RAM DATA 
ive As XPECTED RAM DATA 


" SAVREG 
MOV 






$$ 


108: sUPDATE BYTE COUNT 
sDEFAUL1 TO 8.? 


BR IF YES 
“DONE ALL BYTES? 
:8R IF NO 
15$: 


138 “DONE DEFAULT NUMBER OF BYTES? 
258: 


SET DEFAULT RAMSIZ 
RETURN 








"ENZA BYTE: ZDZ2ZA RAM: ZO3ZA Packet: ZO3ZA KOR:2035° 


eASCIZ 
-EVEN 


— 


01 
14312 
o14319 














c 6 
MACRO it 29-MAR-635 13:32 PAGE 44 


4 -SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


THIS ROUTINE PRINTS THE CONTENTS OF 
;THE 7 WORD MESSAGE BUFFER RETURNED BY THE 


: INPUT: 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ACDRESS OF MESSAGE BUFFER 

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


s THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 














CZTUXAO TUBO FRONT END PRT 6 
PRMESS = PRINT CONTENTS. OF MESSAGE BUFFE 
2649 
2650 
2651 
265 
265 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 014052 PRMESS: 
2667 014052 SAVREG sSAVE THE REGISTERS 
2668 014056 010537 011012 MOV RS ,RAMRSH sSAVE DEVICE REGISTER POINTER 
2669 014062 010005 MOV RO.RS “SAVE LOW ORDER ADDRESS 
2670 014064 005737 003102 TST K TENABLE SADDRESS ABOVE 28K? 
2671 014070 00100 BNE 10 BR IF YES 
sore 014072 00500 CLR °SET HIGH ORDER ADDRESS TO 0 
014074 010103 10$: MOV R1,R3 > SAVE HIGH ORDER ADDRESS 
2674 014076 0061 ROL sSHIFT BIT15 TO C BIT 
2675 014100 006101 2SHIFT TO HIGH ORDER FOR PRINTOUT 
2676 ote ias PRINTX PRINT MESSAGE BUFFER ADDRESS 
014102 010546 MOV 
014104 010146 MOV 
014106 012746 014677 MOV 
014112 012746 000003 MOV 
014116 010600 MOV 
014120 104415 TRAP 
014122 062 000010 ADD 
2677 ote lss 022715 177777 CMP sMESSAGE BUFFER FULL OF ONES 
2678 0141 00101 BNE sBR IF BUFFER IS PROBABLY OKAY , 
2679 014134 PRINTX > MESSAGE BUFFER PROBABLY NOT VALID’ 
0141 012746 014617 MOV 
014140 012746 000001 MOV 
014144 010600 MOV 
014146 104415 TRAP 
014150 062706 000004 ADD 
2680 014154 15$: PRINTX sPRINT HEADER FOR CONTENTS 
014154 0147446 MOV 
014160 000001 BOY 
014164 aOV 
orsies TRAP 
0141 706 000004 ADD 
2681 014174 CLR 3 NUMBE WORD 
014176 MOV sCOPY LOW ORDER ADDRESS 
MOV > COP ADDRESS 
O14 BEQ IF NOT ABOVE 
020252 JSR “SETUP PAR ADDRESS IN 





N RO 
RO,RS :GET PAR FORMAT ADDRESS ABOVE 28K 


208: 


2 é 
~ 
=z 
par 
> 
° 


SEQ 67 


~< 
A Oe ~ 
— 
LIE 


-- ae aes 0 «- oo = 


nl 
El 


014212 


2691 01 


014 

2692 014 $8 
014 
014324 


0145 
014 


oo 
y+ ++ 
- 

wstue 


CZTUXAO TUBO FRONT END PR 
PRMESS = PRINT CONTENTS oF MESSAGE BUFFER 


012746 


=o 
£5 
3 
wa 


gseeee 
s2Seer 3 


eur 
ao 





~Ooooo 

Fone 
3 

wa 


Es 






55 


ete a we SRS 
ah 


: 


01 


015002 
000002 


015047 
000002 


015114 
000002 


000006 


015161 
000002 


015226 
000002 


015275 
000002 





014526 
000001 


dD 6 
MACRO M1200 29-MAR-85 15:32 PAGE 44-1 


MOV (R5)+,<(SP) 


MOV © .RO 

TRAP CSPNix 

ADD #6,SP 

PRINTX #DATAFL,(R5)+ 

MOV (R5)+,- 

MOV #DATAFL,~(SP) 

MOV #2,-(S 

MOV SP,RO 

TRAP CSPNTX 

ADD #6,SP 

PRINTX @#RBPCRA,(R5)+ 
(R5)+,=(SP) 

MOV #RBPCRA,-(SP) 

MOV #2,-(SP) 

MOV SPRO 

TRAP CSPNTX 

ADD #6,SP 

PRINTX #XSOCON,(R5)+ 
(R5)+,-(SP) 


MOV #XSOCON,-(SP) 
MOV #2,-(SP 
MOV SP.RO 

CSPNTX 


#6.$ 
#XS1CON, (R5)+ 













@xS2CON, (RS) + 
CR5 +,°(SP) 
#xS2CON,-(SP) 
#2,°($ 

SP, 

geil 

#6.$ 

#x$8cOM, (RS)* 
(R5)¢ = (SP) 


eae -- ~ 


> PRINT 


sPRINT 


>PRINT 


>PRINT 


sPRINT 


sPRINT 


s CHECK 
» If 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


"“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


“STATS CONTENTS 


FOR DUMP 
NO DUMP REQUIRED 


SEQ 68 


— 


s 6 


Q 69 
CZTUAAO TUSO FRONT END PRT GB MACRO soy 29-MAR-835 15:32 PAGE 44-2 _s 
PRMESS = PRINT CONTENTS OF MESSAGE BUFFE 


012737 900020 011010 
012737 000040 011010 
006737 
012737 000060 011010 
004737 010626 

504 012737 000020 002246 
012737 000100 011010 
004737 01062 


) 












#20 ,RAMHLD sFIELD STARTS AT - OCTAL (10 HEX) 
AMER AND TT 
SFIELD STARTS. At “0 OCTAL (20 HEX) 
‘; sFIELD STARTS AT 60 OCTAL (30 HEX) 
AND PRINT THEM 


N 
TRAM FIELD IS tat BYTES LONG 
SFIELD STARTS AT 100 OCTAL (40 HEX) 
sREAD AND PRIN Nt THEM 










— —_—- ee -—— =~ - 








6 ; 
116 12 \ENZA eereeeerer SPECIAL M7454 RAM MEMORY DUMP seeeeeeces' 
116 12 ‘ZNZA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID’ 
116 12 ‘2ZNZA Message Buffer Address = , 801205" 
116 1Z ‘ZNZA Message Buffer Contents: ' 
116 12 ‘ZNZA Mess Buffer soaeer = 206° | 
116 T C1Z ‘ BNZA Data Field Le = 206° i 
116 RBPC CIZ ‘ZNZA - = 206° 
116 xSO0C C1Z = %06° 
116 C1Z = %06' 
116 045 xXS2CON: .ASCIZ = 206‘ 
116 045 xXS3CON: oy "ZNZA XSTATS Contents = %06' 
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GEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


: .SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
SROUTINE 76 G PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

= NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 


































; EXPMSG = EXPECTED MESSAGE BUFFER 
; RECMSG = RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
PRMSGEXP: : 
SAVREG sSAVE RI°RS UNTIL NEXT RETURN 
MOV RO, SSAVE NUMBER OF WORDS 
002252 MOV RCVLOADD RO :GET RECV LOW ADDRESS 
MOV : :COPY LOW ADDRESS 
002250 MOV RCVHIADD,R1 :GET RECV HIGH ADDRESS 
ROL RO sSHIET BIT15 TO C BIT 
ROL Ri *SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PRMSGO.R1,R4  :PRINT MESSAGE BUFFER ADDRESS 
MOV R4,-(SP) 
MOV R1,-(SP) 
015566 MOV #PRNSGO,-(SP) 
46 000003 MOV 
MOY 
706 000010 
sPRINT HEADER FOR CONTENTS 
015633 
000001 
0154 706 000004 
2743 015476 sNUMBER OF THE CURRENT WORD 
2744 015500 012701 002266 MOV sGET EXPD BUFFER ADDRESS 
2745 015504 012702 002432 MOV 3GET RECV BUFFER ADDRESS 
37 015510 011100 208: MOV *GET EXPD 
747 015512 011203 MOV 3GET RECV 
2748 015514 XOR ROR XOR EXPD/RECV 
2749 0155 PRINTX #PRASEE RG, (R1) +. (R2)4R3 
015 01 MOV R3,-(SP) 
015 MOV taser (SP) 
0155 MOV (RID ¢ eo($P) 
0155 015671 MOV gPaRSG?,- (SP) 
015540 000005 MOV 85,-(SP) 
015544 MOV : 
Ot aeee TRAP CSPNTX 
0155 000014 ADD #14.SP 
750 015554 INC R4 sNUMBER OF THE NEXT 
2751 015556 CMP 24 RS sDONE ALL YET? 
752 015560 BGE 50$ zBR IF YES. 
753 015562 iS 208 











3 
3 





Pe 3) 
az) 
oe 


rIrRITOTRD 


- 
2 


iter Address = 201205° 
Buffer Contents: 
#ZD2ZA EXPD: ZO6ZA RECV: ZO6ZA XOR: nod 





ad 





22 


MIPIM 
33 
ec 
¥ 
= 
= al 
Ef 
¥ 
x 


. 


-——-— 
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| MACRO #1200 
| PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFE 

























6040 001 
00523 
by sor 023727 


16056 010346 





110337 

122122 
1431 

101023 


013746 
013746 


010446 
72 012746 


012746 
01 
106415 
062 


002264 


002266 
002432 


177400 
016324 
177400 
016526 


7 002264 


002264 


0163526 
016324 


016172 
000005 


706 000014 


000404 





000010 


—<— - en eee ——t a 
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4 -SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
; ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


: RO = NUMBER OF BYTES IN BUFFER 
[IMPLICIT INPUTS: 
; EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG = RECEIVED MESSAGE BUFFER 
PRBYTEXP:: 
SAVREG sSAVE RI“RS UNTIL NEXT RETURN 
NUMBER OF BYTES 


RO.RS 
PRANO 





3s SAV 

INIT ERR 

sNUMBER OF THE CURRENT BYTE 
GET EXPD BUFFER ADDRESS 
sGET RECV BUFFER ADDRESS 
sGET EXPD BYTE 





R4 
#EXPASG RI 
#RECHSG ,R2 










208: 


ROR 
CR1)+, (R2)¢ 
308 





308 s6R IF YES 
@PREMSG .R4,,PRBEXP .PRBREC .RS 
R3,-(SP) 


273: 





ADD SP 
FORCEXIT 508 
BR 


FORCERROR 278,NOTSSR 





; DONE 
sBR IF res 





sD0 ANOTHER 
sPRINT TOTAL ERROR COUNT 


SEQ 71 


LLL LLL 
LL LL LL 





owen ene ae 
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PPBYTEXP ~ PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 














016164 062706 000006 ADD #6,SP 
2803 016170 000207 RTS PC RETURN 
2805 0161 045 116 045 PRBMSG: *SNEA BYTE #ZD2ZA EXPD: ZOSZA anne ZO3ZA xOR: 203° 
3807 01625 045 116 045 PRBTOT: .ASCIZ ‘ZN2A NUMBER OF BYTES IN EPPNR = ZD2° 
016324 000000 : WORD sEXPD 
+ $44 016326 000000 PRBREC: .WORD 0 sRECV 
2811 :¢ 
sole : 
ai; sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
15 ‘INPUTS: 
2816 : , 
2617 5 R1 RECEIVED DATA 
2818 : Re EXPECTED DATA 
2819 ; 
2820 3= 
2821 016330 BGNASG EXPREC 
0163 EXPREC:: 
2822 016330 004737 007462 JSR PC .PRIXOR sPRINT THE DATA 
2823 016334 ENDMSG 
016334 110017: 
016334 104423 TRAP CSMSG 











ee ee er ce ee we eee 
- 
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EXPGREC - PRINT EXPD/RECY BYTE DATA 





-SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 


e 


PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 






; INPUTS: 
R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 
3837 
2838 016336 ee BGNMSG EXPBREC 
2839 016336 004737 007332 "JSR PC ,PRIBXOR SPRINT THE DATA 
2840 016342 ENDMSG 
016342 110020: 
016342 104423 TRAP  CSMSG 


-SBTTL RAMERR - PRINT RAM AND PACKET DATA 


ae 


SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
; INPUTS: 
R4 POINTER TO COMMAND PACKET 
; IRPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMS 12 NUMBER 


OF BYTES IN PACKET 
If RAMSIZ=0 THEN DEFAULT TO 8. 








IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 











ses bs or a BGNASG RAMERR 
2866 01 004737 013620 JSR PC, PRAMPKT sPRINT RAM/PACKET DATA 
2867 016350 
50 110021: 
016350 104423 TRAP CSMSG 
£868 


~SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


+ 


PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
> INPUTS: 


e 
f 
a 





$0 73 


——— 


——— nl —_———— ee 


el 


Stas TUSO FRONT END PRT B 












me 
Rs 
ae 
fe 
ie 


2691 

2892 016352 
016352 

2893 916352 

2894 016356 004737 013620 

2895 016362 
016362 

016362 


004737 010014 


104423 
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AMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 











s IMPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


: RG POINTER TO COMMAND PACKET 

*IMPLICIT INPUTS: 

: RAMDATA DATA AS READ FROM THE R 

: RAMSIZ NUMBER OF BYTES IN PACKET 

: IF RAMS 12=0 THEN DEFAULT TO 8. 
: ERRHI HIGH ORDER TEST ADDRESS 

; ERRLO LOW ORDER TEST ADDRESS 





BGNMASG RAMTADD 

RAMTADD: : 
JSR PC .PRITADD sPRINT TEST ADDRESS 
JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 





L10022: 





CSMSG 


-SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 


+ 


SPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


S INPUTS: 

: Ri RECEIVED DATA 

; R2 EXPECTED DATA 

: R4 CONTROLLER RAM ADDRESS 
RANEXP 
#*C<377>,R1 sSAVE EXPD RAM DATA BYTE 
#*C<377>,R2 > SAVE EXPD RAM DATA BYTE 
PC, PRIRAM “PRINT THE RAM ADDRESS 
PC PRIXOR “PRINT THE DATA 





110023: 





CSASG 


-SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 
+ 


SPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A,B HEADER MESSAGE 


‘ INPUTS: 


R1 RECEIVED DATA 
R MPECTED DATA 


—— ~ ——— SS 


SEQ 74 


EL LLL LL 
~—— ee 
ee SE —— ee ee 


SEE ees —— 


= _— _—_—. —_——p asa 
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TIMEXP = PRINT TIMER A,B AND EXP/REC 








2927 :- 
2929 016406 —_— BGNMSG TIMEXP 
2930 016406 PRINTX #TImsGO :PRINT HEADER 
016406 012746 016434 MOV #TIMSGO,-(SP) 
016412 012746 000001 MOV #1,-(SP) 
016416 010600 MOV SP,RO 
01 1046415 TRAP CSPNTX 
016422 062706 000004 ADD #4,$P 
2931 oreses 004737 007462 JSR PC, PRIXOR sPRINT THE DATA 
2932 0164 ENDMSG 
6432 110024: 
016432 104423 TRAP CSMSG 
zy 


29 
ex 016434 045 116 045 — ~ASCIZ ‘“ZNZA TIMER A STATUS IS IN BIT SZNZA TIMER B STATUS IS IN BIT 2° 


SEQ 75 


A 


572 
2958 016574 


010246 
042702 


sires TUBO FRONT END PRT B 


177400 


016574 
000002 
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MACRO M1200 29-MAR-83 15: P 
SSR - PRINT TSSR ERRORS ON DATA TRANSFERS ———s 


0’5 


-SBTTL 


-¢+ 


BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


SPRINT ROUTINE FOR 1SSR ERRORS ON DATA TRANSFERS 


: INPUTS: 


: R1 
: R2 





110025: 
XFERASC: 








CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 


R2,-(SP) sSAVE DATA TRANSFERRED 
#177400, R2 “GET JUST ONE BYTE 
#XFERASC,R2 

2,-(SP) 

#XFERASC, (SP) 

#2.- =(SP) 


CSPNTB 
#6 


SP 
(SP)+,R2 


sRESTORE R2 
PC .PRITSSR sDECODE TSSR CONTENTS 


CSMSG 
eASCIZ ‘2ZNZA Data Transferred = %03' 


SEQ 76 


' 
ee nssinneane o-—--< 
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SEQ 77 
SOF INIT ~ SOFT INITIALIZE OF CONTROLLER | 








sees -SBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 
2962 :* 

2963 3 

2964 sROUTINE TO DO A SOtt INITIALIZE OF THE CONTROLLER 
2965 :BY WRITING INTO THE TSSR vege eS AFTER THE INIT, 
2966 * THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
2967 ;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
2969 INPUTS: 

2970 - 

2971 : R5 ADDRESS OF FIRST REGISTER 

4; ; 

29 s OUTPUTS: 

2974 5 

2975 3 RO CONTENTS OF TSSR, IF ERROR 

2976 ; CARRY SET IF INIT WAS OKAY 

3444 ; CLEAR IF FATAL ERROR 

2979 sCALLING SEQUENCE: 

2980 : 

2981 : MOV #ADDRESS,R5 

2982 : JSR PC SOF INIT 

2983 : BCs CONTINUE 

2984 3 ERRDF sREPORT FATAL ERROR 
2985 ; 

2986 s° 

2987 

2988 016630 SOF INIT:: 

2989 016630 SAVREG : SAVE THE REGISTERS 
2990 016634 012765 000000 000000 MOV #0, TSSR(RS) :2 THE INIT. 

2991 016642 004737 017104 PC ,WAITF : WAIT FOR SSR 

2992 016646 016500 000000 TSSRCRS) RO sGET THE TSSR REGISTER 





2993 016652 oR :TSSR CONTENTS 

2994 016654 042704 176277 #°CCHIADDR!OFL>,R6 

2995 016660 052704 002200 @SSRINBA,R4 sR4 HAS EXPECTED CONTENTS 
2996 016664 R4,RO ZONLY EXPECTED BITS SET ? 
2997 016666 001402 5$ H IF OKAY 

2998 016670 000241 CLEAR THE CARRY FOR ERROR 
2999 016672 000401 BR 10$ :GO TO EXIT 

3000 016674 000261 5$: SEC SET THE CARRY BIT 


3001 016676 000207 10S: RTS PC RETURN TO CALLER 


3003 
3004 


CZTUXAO TUSO FRONT END PRT B 
CHKAMB <= CHECK TSSR FOR AMBIGUITY 


100000 
174077 


000200 
000040 
177761 
000016 


000040 
000006 


EE ee 
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-SBT '. CHKAMB = CHECK TSSR FOR AMBIGUITY 
+ 


THIS ROUTINE -_ THE CONTENTS OF THE TSSR REGISTER 


SFOR AMBIGUITY 
S INPUT: 
; RO CONTENTS OF TSSR 
“OUTPUT: 
RO CONTENTS OF TSSR 


CARRY SET = NO AMBIGUITY 
CLR = AMBIGUOUS CONTENTS 


SAVREG sSAVE THE GENERAL REGISTERS 
MOV RO,R4 sCONTENTS OF TSSR 
BIT + haa 31S BIT H SET ? 


BNE :BRANCH YES 
BIT P*CeNBALOFL !SSR!ATADDR>, RO sANY OTHER BITS SET ? 
BNE 40$ ST AN ERROR 


;RETURN WITH SUCCESS 

31S READY BIT SET 

sBRANCH IF READY Bit IS il 
31S FATAL ERROR BIT SET 

sERROR IF NOT 

:CLEAR ALL BUT TERMINATION CODE 
sALL THREE Pal BE SET 


BR 45$ 

5$: BIT #SSR,RO 
BNE 
BIT #B1T5,RO 
BEQ 
BIC #*CTERCLS ,R4 
CMP R4 #16 


BNE 40$ sERROR IF NOT 
BR &55 30K IF ALL ARE SET 
108: BIT #B81T5,RO 31S FATAL ERROR BIT SET 
sERROR IF BIT IS SET ulti SSR 


BEQ 4 

BIT #BIT2'BIT1,R0 

BNE 45$ 

40S: CLC 
BR 


50$ 
45$; SEC 
50$: RTS PC 


31S THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
sAMBIGUOUS CONTENTS 


sSHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 


SEG 76 


8 7 
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ENAINT ,DSBINT - ENABLE/DI SABLE INTERRUPTS 


SEQ 79 


-SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT ea INTERRUPT HANDLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE Dru REGISTERS AND DISMISS. 


3050 
3051 
305 


; BIT DEFINITIONS FOR “‘INTMASK"’ AND ““INTFLAG'’ BYTES: 


000200 ; IOKCKIN=BIT7 ; DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL. 
000001 1OKSTP=BITO ; EXPECT "STOP" INTERRUPT. 


: INTERRUPT MASK <= SAYS EXPECTING INTERRUPTS 





000 IN 
INTERRUPT FLAG - @- SAYS WE GOT ONE (IF POSITIVE) 
000 IN NTFLAG: BYTE O 
sSAVED INTERRUPT VECTOR: 
000000 INTVEC: .WORD 0 
sSAVE CPU PC 
000000 INTCPC: .WORD 0 
; SUBROUTINE TO ENABLE INTERRUPTS: 
010046 ENAINT: MOV RO.=(SP) 0 
013700 002156 MOV IVEC, <GET POINTER TO VECTORS 
012720 017052 MOV #INTR ateo)* sSET UP INTERRUPT VECTOR 
012720 000340 MOV #PR107, (RO)+ 
12600 MOV (SP)+¢ “RO sRESTORE RO 
011646 MOV (SP) ,=(SP) 
012766 000000 000002 mov #0, 2¢SP) sSET CPU TO LEVEL 0 
000002 atl 
sSUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
0 011646 DSBINT: MOV (SP) ,~-(SP) 
012766 000340 000002 MOV #PR107.2(SP) 
000002 RTI 





c 7? 


| 

SEQ 80 | 
CZTUXAO TUBO FRONT END PRT B ###MACRO M1200 29-MAR-83 13:32 PAGE 52 | | 
INTR = INTERRUPT HANDLERS 


3087 SBTTL INTR = INTERRUPT HANDLERS 
5089 017052 tre: POMSRY. INTR DEFINE INTERRUPT ENTRY | 
3090 017052 012737 000001 002172 MOV #1, ANTRECY SET FLAG TO SHOW INTERRUPT RECEIVED | 
3091 017060 105037 017001 CLRB —sINTFLAG CLEAR FLAG TO SAY WE GOT INTERRUPT | 
3092 017064 132737 000001 9017000 BITS  #IOKSTP,INTMASK ;EXPECTING STOP INTERRUPT? 
3093 017072 00100 BNE :BR IF YES 
309% 017074 152737 000001 017001 BISB  #IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
3096 SAVE REGISTERS, MSG BUFFER, ETC. 
3097 017102 is: 
3098 017102 ENDSRV 
017102 110026: 


017102 000002 





— =o 





CZTUXAO TUSO FRONT END PR 
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a ed ad ad td ot od et 
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~~ 
week vot aed cat end sed edt od 


~ 
& 


= ot oe? 
“~~ 
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a a cd cost wd 
SAVVY 
weed 2B ok ed ot oD 


oo ooooooo“eso 
Fwuwn 
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P 


7150 
5 


eseeeeseoosss 
VINISISS 

wath oe oe 

OfFMwOo 


104422 
012746 


012727 
000000 
013727 
000000 


100420 


0135727 
000000 


010000 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 
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- WAIT FOR SUBSYSTER READY 


- WAIT FOR SUBSYSTEM READY 


> SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


: INPUTS: 


: RS 
OUTPUTS: 


: RO 
: CARRY 


WAITF:: BREAK 


23: 


3$: SEC 
4$: DEC 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS S LAST TSSR READ 
SET - READY BIT SET 
CLR = TIMEOUT WAITING FOR READY 


; DO A SUPVSR BREAK FIRST. 


CSBRK 
#10000,-(SP)  ;BIG MSEC TIMER 
sDELAY 100US 
#1, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 
4 
“22(PC) 
TSSR(RS) RO SREAD THE 1SSR REGISTER 
RO sTEST FOR READY BIT SET 


3$ ; EXIT ON STOP FLAG. 


i ; WAIT 100 USEC 
#1, (PC)+ 
LSDLY.(PC)* 
-6(PC) 
4 
~22cPC) 
(SP) sREDUCE DELAY COUNT 
2$ SRETRY UNTIL TIMER EXP 
> € = 0, CON R STILL RUNNING... 

4$ ;+2-0R WUNG-UP AFTER 300 MSEC. 

C= 1, CONTROLLER IS STOPPED. 
(SP)+ “RESTORE STACK WITHOUT CHANGING CARRY B11 
PC 


ee ee — —=— 


SEQ 61 


LL LEELA ALLA, TL —— 


_- . 
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CHKTSSR = CHECK TSSR FOR READY 


3133 -SBTTL CHKTSSR - CHECK TSSR FOR READY 
313 
3134 3¢ 
3135 $ 
31 THIS ROUTINE WAITS FOR READY IN THE TSSR 
$135 sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
Ht #4 : INPUT: 
49) : RS ADDRESS OF CSR REGISTERS 
ie OUTPUT: 
144 s 
3145 : RO CONTENTS OF TSSR 
3146 3 CARRY SET = OKAY 
pH ; CLR = NOT READY AMBIGUOUS, OR SC SET 
3149 - 
3150 
3151 017220 CHKTSSR: 
a3 017220 004737 017104 JSR PC ,.WAITF sWAIT FOR READY 
3153 017224 10301 Bcc sBRANCH IF TIME OUT 
3154 017226 004737 016700 JSR PC, CHKAMB sTSSR AMBIGOUS? 
3155 oie 103006 BCC 10$ sBR IF YES 
3136 017 032700 100000 BIT #SC,RO SPECIAL CONDITION SET? 
3157 017240 001405 BEQ . 
158 017242 032700 074000 BIT #<SCE'BIE!RMRINXM>,.RO  ;ANY ERROR BITS SET? 
159 0172466 001402 BEQ 15$ :BR NG 
160 017250 41 10S: CLC : sSET FAILURE 
161 017252 01 20% ; 
316¢ 017 33 000261 15$: SEC sSET SUCCESS 
3163 017256 207 20S: RTS PC sRETURN TO CALLER 


—— —— 


Commas TUBO FRONT END 
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- CHECK FOR NONE XI STENT MEMORY 


pee eee eee tite tty 
SRSSS RAS SS SaNSsRaN 
cee ee od 
33 
= 


coed 
Scoocococoeocece ocooco oooo 


we eh at eel eet on ed et ocd ed wt aed ad od 


see ad Gat Vad Grd ual God ed Le 
ee oo acd cod colt coh i oad ct ed 


SSSSLESESSLES 





es Se 
WnMN—© 
ee 


te cml 
we 
i ] 
seedy 





3214 00024 
S216 1739 





017312 
000200 


000002 


017322 


002136 
002152 
002164 





.SBTTL XNXM = CHECK FOR NONEXISTENT MEMORY 
ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
> ON RETURN, IF "C= 1, (RI) = NEXM ADDRESS. 
; "Cc" = 0. ALL ADDRESSES OK. 
SCALL: MOV ADR1.R1 
: MOV ADR2.R 
: JSR PCNXM 
: RETURN TEST “"C’’ AND PROCEED. 
000004 XNXM: MOV #2%,a86 ; SET BUSERR VECTOR. 
000006 MOV = #PRI04,a86 
CLR sR LAG. 
1$ 1ST (RID TEST THE ADDRESS(ES). 
F ANY TRAP, CONTINUE AT 2S. 
CMP sR R2 :OTHERUISE. CONTINUE HERE. 
BEQté‘éSS 3BR IF FINISHED (NO NEXR'S) 
ADD —- #2, R1 SET NEXT ADDRESS... 
BR 1$ :..eAND CONTINUE. 
28: consi :GOT ONE, SET FLAG... 
#3, (SP) 
atl :..-AND DISMISS INTERRUPT... 
3$: CLRVEC #% :...AND GIVE BACK THE VECTOR. 
HOV #4, RO 
TRAP CSCVEC 
ST R3 sDID WE CATCH ONE 2? 
BEQ +h “NO, "'C’’ = 0, SKIP NEXT. 
SEC : YES, mc’ = 4, (RI) = NEXM ADDR. 
RTS ss PC 
.SBTTL TSTLOOP - CHECK ITERATION COUNT 
SUBROUTINE TO EXECUTE TEST ITERATIONS. 
: EXIT WITH “'C’’ SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS ser BY "BEGIN. TEST’’ MACRO. 
> CALL: LOOPTO ARG 
TSTLOOP: : 
St  NOITS ; ITERATIONS INHIBITED? 
BNE 1$ ; VES. 
St  avP : NO. 
Bal 1$ SLOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCWT : BUMP LOOP COUNTER. 
1$: cue . SLOOP DISALLOWED, OR DONE. 
28: SEC SLOOP ENABLED. 
3: RTS ss PE 


SEQ 83 


—_——— a . 





CZTUXAO TUBO FRONT END PRT B 
TSTLOOP =~ CHECK ITERATION COUNT 


003106 
017640 


002150 
003062 


160000 003130 


50 





160001 003130 3$: 


177777 0035060 28: 


——— sea : 


6 7 
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-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


; PRINT THE NUMBER AND WARE OF EACH TEST AS WE GO ALONG. 

; INCREMENT “‘TESTK’’ TO INDICATE THE NUMBER OF TESTS 
; IN THE CURRENT RUN SE 
; CLEAR THE ERROR COUNTER AND “SIGNATURE EXTENSION FLAGS. 














RO POINTER TO TEST ID ASCIZ STRING 


RS ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
ISIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP: : 
OV 


CLR 
C 
CLR 
CLRB 


are THE TEST ID MESSAGE 
; “SOFT INIT’ FLAG 
CLEAR E ° 
CLEAR E XTE FLAG. 

a wrt won (CHECK ERROR) 


GET 
ese FSET. 
DID STARTUP FIND AME DEVICE? 
















7160000 ,ERTABL(RO) HAG. ERROR 


N THE ERROR TABLE 
genni ; NO DEVICE HERE -- 


-- PRINT | 









ones ‘eed FLAG ERROR IN THE ERROR TABLE 
a EVICE NOT IDLE 





NOINIT 
#-1 ,DUFLG 
UNITN,RO ° 


; DROP THE UNIT 





SEQ 84 


es Om - 
I LOO 


A LL LLL 
LL ALLL ALLL . 





Ne 


H 7 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


SEQ 85 








’ 
ET a TT 


504 104444 TRAP CSDOCLN 
000423 Beté‘SS 
4$: RFLAGS RO ; GET THE OPERATOR FLAGS. 
104421 TRAP CORPLA 
032700 001000 BIT —«#PNT. ; PRINT THE TEST NUMBERS? | 
001412 Beati«édTSS F NO | 
011600 MOV (SP). RO SGET THE ID MESSAGE | 
PRINTF &TNAM, SDISPLAY THE TEST ID | 
10046 MOV RO, = | 
012746 017566 MOV —«#TNAM, (SP) 
012746 000002 MOV: #2, = $P) 
01 MOV —SP-RO 
104417 TRAP CSPNTF 
062706 000006 ADD «#6, SP | 
005237 002162 1S: INC _—sTSTCNT ; BUMP TEST COUNTER. 3 
SETPRI IPRI [PRIORITY THAT OF DEVICE | 
013700 002160 MOV: IPRI.RO 
104441 TRAP CSSPRI 
005726 ss: 1ST (SP )4 FIX UP THE STACK 
013705 002156 MOV CSRADDR.RS ===; ADDRESS OF TSV REGISTERS ON UNIBUS 
000207 RTS BL 
065 123 065 TNAM: "ESRTRA Test’ 











CZTUXAO TUSO FRONT END PRT B 


TSTEND = PRINT ERRORS RECEIVED 


32 

3285 017602 
017602 

3286 017604 


3287 017610 
3288 017612 
017612 


017632 
3289 017636 


3290 

3291 017640 
017642 
3295 017661 





3296 
3297 
3298 


3299 

3300 HAL 

3301 017732 
17734 


104421 
030027 020000 
001412 
013746 017640 
012746 017642 
012746 2 
010600 
104417 
062706 000006 
000207 
000000 
045 101 040 
105 122 122 
ses tes 017640 
0135700 002150 
006 
062700 005130 
005210 
032710 007777 
00100 
005310 
01 
000207 
010046 
013700 002150 
006300 
016000 003130 
oe 170000 
oe ? 002142 
3737 017640 002140 
103417 
104421 
032700 600040 
001015 
012737 177777 003060 
1046455 


000004 
017661 


1 7 


MACRO M1200 29-MAR-83 15:32 PAGE 57 





-S8TTL TSTEND <- PRINT ERRORS RECEIVED 


a=@Ge Ge Se Ge 


AT END OF EACH TEST, 


PRINT THE NUMBER OF ERRORS RECEIVED 
If NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


STEND: RFLAGS RO 
TRAP 


; BR IF “IER NOT SET. 
; PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


ERROR LIMIT REACHED -- DROPPING UNIT/ 


- INCREMENT LOCAL ERROR COUNT 


3¢ 
; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


CSRFLA 
BIT RO, #IER 
BEQ 1$ 
PRINTF #ESUR,ERRK 
MOV ERRK ,- (SP) 
MOV #ESUR,-(SP) 
MOV #2,°(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #6,SP 
18: RTS PC 
ERRK: 
ESUM: .ASCIZ /ZA ZDZA ERRORS/ 
EMAXDU: .ASCIZ 
EVEN 
-SBTTL INCERK 
INCERK: INC ERRK 
MOV RO,-(SP) 
mGY UNITN,RO 
ASL 
ADD SERTABL RO 
INC 
BIT #7777, (RO) 
BNE 18 
DEC CRO) 
1$: MOV (SP)+,RO 
RTS PC 
CKEMAX: MOV RO,-(SP) 
AOY UNITN,RO 
ASL 
MOV ERTABL(RO) .RO 
BIC #170000 .RO 
Cae RO, GERRMAX 
BHIS 1$ 
CAP ERRK ,LERRMAX 
BLO 2% 
1$: RO 
T CSRFLA 
#10U,R0 
23 
#-1 ,DUFLG 
& ,ERAXDU 




















céeRor 
i 


Pe tg: yal LOCAL ERROR COUNT 
GET UNIT NUMBER, 
T A WORD OF 


« AND MAKE I FSET. 
RO GETS “gy OF ERROR TABLE ENTRY. 
THE DEVICE ERROR COUNT 








MENT 
i WE OVERFLOW THE FIELD? 





IF NO. 
YES -- BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 






NUMBER 
MAKE IT A WORD OFFSET 
GET ERROR TABLE ENTRY 
EXTRACT 


13 GLOBAL LIAIT EXCEEDED FOR THIS UNIT? 
is LOCAL LIMIT EXCEEDED FOR THIS TEST? 
GET OPERATOR FLAGS 

IS a INHIBITED? 


BR IF 
NO -- DROP THE UNIT 





37? 











SEQ 87 
CZTUXAO TUBO FRONT END PRT GB MACRO 1200 29-MAR-83 13:32 PAGE S7-1 
INCERK = INCREMENT LOCAL ERROR COUNT 
020046 000000 -WORD 
3326 020050 DODU =~ UNITN 
020050 013700 002150 MOV UNITN,RO 
ognoee 104451 TRAP C*®D0DU 
3327 0 DOCLN 
104444 TRAP CSDCLN 
3328 020060 012600 23: MOV (SP)+,RO 3 RESTORE RO 
3329 020062 000207 RTS PC RETURN TO CALLER 
EE -SBOTTL FATCHK = INC FATAL ERRORS AND CHECK FOR LIAIT 
:¢ 
33 3 
333 3 CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
3336 ; ERRORS AND IF OVER CALL UNIT DROP ROUTINE 
3336 :° 
3337 020064 FATCHK: 
3338 020064 SAVREG 2 Pha SAVE THE REGISTERS 
3339 020070 013701 002150 MOV UNITN,R1 sPICK UP THE UNIT NUMBER 
74 006301 ASL 1 MAKE IT INTO A BYTE OFFSET 
000001 003130 ADD #1, ERTABL(R1) SADD 1 TO THE PROPER UNIT'S ERROR COUNTER 
7 INC FATFLG 3 FAT OUNTER 
062170 000031 = ata gg AGAINST 25 
RFLAGS RO sREAD THE FLAGS INTO RO 
TRAP CSRFLA 
040000 BIT #B1T14,R0 sBR, IF LOOP ON ERROR IS SET 
BNE 95 OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
020136 JSR PC .CKDROP ;DROP_UN UNIT IF ALLOWED 
PC sRETURN ETC. 





@e Se Ge 
. 
ao 
omg 
[70] 


3377 020204 
3378 020204 
$50 020210 
380 


3381 
3382 


CZTUXAO TUBO FRONT END PRT B 
CKDROP 


011600 
012737 


170 013700 
104451 


004737 
000207 


177777 003060 
002150 


016650 





ee em a ee ae eS 


Kk 7 
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~- CHECK IF UNIT SHOULD BE DROPPED 


-SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 


c+ 
; CHECK IF UNIT SHOULD BE DROPPED 


CKDROP 


1$: 


MOV RO,-<SP) 
FORCERROR 1$,NOTSSR 
LAGS 


RF RO 

TRAP CSRFLA 
BIT #1DU,RO 
BNE 1$ 

MOV (SP) RO 
MOV g=1 ,DUFLG 
DODU UNITN 

MOV UNITN RO 
TRAP C ) 
DOCLN sABORT THE PASS 
TRAP CSOCLN 
MOV (SP)+,RO 
RTS PC 


eSBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 


: SUBROUTINE = DETERMINE CONFIGURATION OF TU8O SYSTEM. 


CONF IG: 


JSR PC SOF INIT 
s PC 


SEQ 88 


A LE AA EE = - 


ee eee 


_—— <i: Le CT i LL LALLA 


CZTUXAO TUSO FRONT END PRT 8 


KTON ,KTOFF 





005737 
001 


40 
20 012737 
000207 


005737 
001405 
000240 


000240 
012737 
000207 


003100 
€00001 177572 


003100 


000000 177572 





T 


-SBTTL KTON,KTOFF 


Ll 7? 
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- ENABLE/DISABLE MEMORY MANAGEMEN 


: SUBROUTINE - ENABLE MEM MGT. 


KTON: 


1$: 


TST 
BEQ 
MOV 
RTS 


KTFLG 
1$ 
#1,SR0 
PC 


; SUBROUTINE - DISABLE MEM MGT. 


KTOFF : 


1$: 


TST 
BEQ 
NOP 
NOP 


MOV 
RTS 


KTFLG 
1$ 


#0,SRO 
PC 


- ENABLE/DISABLE MEMORY MANAGEMENT 





GOT KI? 
VES. ENABLE KT11. 


; GOT KT11? 
NO 


; DISABLE KT. 


ee ee - +> 


SEQ 89 


—-—e—- 


| 
| 
———— 


—_—_———— ee 


SE TMAP 


3407 
3408 
09 


“¢ 
© 


eeeeeeese 
ODOnNOuUluwn— 









eee 
wVV 


2 
NOUS WUN 


SVSor 
< 
mo 
o 


FESES SE 
UN=SS 


+ 


Seer yy 
. 
= 





recs 
FSon 


. 0 

§ 090350 

4 52 

45 020554 
3446 


CZTUXAO TUSO FRONT END PRT B 
- SETUP PAR6 MAPPING 


003100 


000177 
003100 


172354 
160000 
140000 
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-SBTTL SETMAP = SETUP PAR6 MAPPING 
+ 
;THIS ROUTINE SETS uP KERNEL PAR6 TP 


HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
18 RETURNED BIASED TO PAR6. 





‘INPUTS: 
: RO HIGH ORDER ADDRESS BITS 
: RI LOW ORDER ADDRESS BITS 
OUTPUTS 
: RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
: CARRY SET IF SUCCESS 
: CLR If ERROR 
SETMAP: 
SAVREG sSAVE RI-R4 UNTIL NEXT RETURN 
TST  —sKTFLG “SYSTEM HAVE ABOVE 28K? 
BEQ }40—sié1@ SBR IF NO 
nov R1.R2 [SAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO 0 32u BLOCKS 
ROR R1 “MAKE IT DUUBLE PRECISION 
BIC #177,R1 SALINE FOR LOWER 4K BOUNDARY 
CMP sR KTFLG SMIGHER THAN EXISTING MEMORY? 
BHIS 108 SBR IF YES 
MOV = RI,@#KIPARG = : SETUP MAPPING REGISTER PARG 
BIC  #160000,R2 >SETUP DISPLACEMENT IN PAGE 
ADD —- #140000.R2 “ADD IN PAR6 BIAS 
MOV —s._ R2, RO RETURN IN RO 
SEC SET SUCCESS 
BR 15$ : 
10$: CLC “SET FAILURE 
15$: RTS PC * RETURN 


Ee ed 


SEQ 90 


TT 





CZTUXAO TUSO FRONT END PRT B 
FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 


020230 


003072 
003074 


003100 
020212 
003104 


020252 
160000 


700 020000 
200 172354 
003100 


000 
172354 


020476 
020230 


MACRO 


10$: 


50S: 
558: 


un 7 
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eSBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


RO = BACKGROUND PATTERN 
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
= SET TO HIGHEST MEMORY LOCATION IF > 28K. 


FREE 
KTFLG 


PC ,KTON 


#20000 ,RO 
#200 ,@#KIPAR6 
— 


PC ,KTOFF 
PC 


FILL MEMORY WITH A BACKGROUND PATTERN 


sSAVE RI-R5 UNTIL NEXT RETURN 
:DISABL 

:COPY TEST PATTERN 

GET FIRST FREE LOCATION 
;SIZE yt FREE SPACE BELOW 28K. 
sSTORE A BACKGR 


OUND 
> DONE — MEMORY IN FREE SPACE? 


YES. ENABLE KT. 
THIGH ORDER ADDRESS STAR 
GET >28K START ADDRESS UN $2W BLOCKS) 


sCLEAR C BIT 
:CONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


{SETUP PAR6 MAPPING og gn 
sSTORE TEST PATTERN IN >28K ADDRESS 
END OF P oo MAPPING AREA? 


7BR 

BACKUP MINTO PAR6 MAPPING EEGIN 

:POIN NT TO NEXT | 4K BLOCK *28K. 
OF MEMORY? 


“BR IF YES 
*KEEP GOING ON ETC. 
: DISABLE KT. 


SEQ 91 


el 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 


3496 ; .SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
3498 > COMPARE MEMORY WITH A BACKGROUND PATTERN 

3500 : INPUTS 

3501 : 

350 : RO = BACKGROUND PATTERN 

350 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
se08 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3506 : OUTPUTS 

3507 : 

3508 : CARRY = SET IF NO ERROR 

Hse : CARRY = CLR IF ERROR 

3511 : IMPLICIT OUTPUTS: 

3818 : ERRHI = ERROR HIGH ADDRESS 

3514 : ERRLO = ERROR LOW ADDRESS 

3515 : EXPD = EXPECTED DATA 

3516 : RECV = RECEIVED DATA 

3517 :° 

351 C 


3525 020566 
3526 020570 
3527 020574 

020600 


i 02071 


$51 a 


002202 





15$: 


R3,EXPD 
(R1) ,RECY 
50$ 

(R1)¢ 

Re? 

10$ 
KTFLG 


PC .KTON 
PST32U,R1 
6 


RO 
#177,R1 


sSAVE R1-R5 oireat NEXT RETURN 
:COPY ee TTERN 


sDISABLE K 
:GET fy: "FREE LOCATION 
;SIZE OF FREE SPACE BELOW 28K. 
sFREE ey LOCATION EQUAL TO EXPD? 
SAVE ADDRESS IN ERROR 
IGH ADDRES 


: DRESS 
sSAVE EXPD FOR ERROR REPORT 
3 SAVE RECV FOR ERROR REPORT 


POINT TO NEXT ADDRESS 
; DONE ~~ L MEMORY IN FREE SPACE? 





ENABLE 
HIGH ORDER ADDRESS STAR 
GET >28K START ADDRESS CIN 32W BLOCKS) 


CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 


sALINE 4K BOUNDARY 
s SAVE voy ORDER 


ORDER 

UP PARG MAPPING REGISTER 

sCOPY ADDRESS BIASED TO PAR6 

‘ ORE LOW ORDER Ih NON 

aoe HIGH ORDER IN NON 
aver oe LOCATION EQUAL EXPD? 


























CZTUXAO TUBO FRONT END PRT B 
CMPREM = COMPARE MEMORY TO BACKGROUND PATTERN 


3553 020722 


570 
3571 051020 
3572 


010137 002204 


002176 
002200 
000002 


000002 
160000 


MACRO 1200 


20000 
200 172354 


000 
172354 603100 
7 0202350 


7 020230 


328: 


55$: 
60S: 


¢c & 


| ete 13:32 PAGE 62-1 
MOV R1,ERRLO 
MOV 
MOV (RG) ,RECV 
8 5%§ 
ADD #2,ki 
ADC RO 
ADD #2,R4 
CMP R4 ,#160000 
BLO 30$ 
SUB #20000 ,R4 
ADD #200 ,a@#KIPARG 
CMP SFKIPAR6,KTFLG 
8L0S 308 
JSR PC .KTOFF 
cLC 
AR 60$ 
JSR PC .KTOFF 
SEC 
RTS PC 





sSAVE LOW ORDER IN ERROR 
;SAVE EXPD FOR ERROR REPORT 


s SAVE RECV FGR ERROR REPORT 


SUPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 
= UPDATE PAR FORMAT ADDRESS 

; END f =~ MAPPING AREA? 


TBACKUP INTO PAR6 RAPPING BEGIN 
;POINT TO NEXT 4K BLOCK >28K. 
OF MEMORY? 











;TURN OFF MEMORY MAPPING 
eset FAILURE 


TURN OFF MEMORY MAPPING 
SET SUCCESS 


ee 


SEQ 93 





REGSAV 








3593 
94 021022 
3595 021022 
021022 
3596 021024 
3597 021026 


3598 0210 
3599 021032 
3600 021034 


CZTUXAO TU8O FRONT END PRT B 
- SAVE R1/-R5 ON STACK 


000012 


——— al 
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.SBTTL REGSAV = SAVE RI-RS ON STACK 
SROUTINE TO 
SAVE R1 THROUGH RS ON THE STACK 


[CALLING SEQUENCE: 


; JSR _—sRS,REGSAV 

“THIS 1S A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
“THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
:THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


“THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
“CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 
BREAK sLOOK FOR CNTL C 
TRAP 


(SP)+,R4 
(SP)+,R5 


CSBRK 
PC 


sLOOK FOR CNTL C 





SEQ 94 


CITUXAO TUSO FRONT END PRT 6 


104443 
000406 
021116 
000022 
021120 
000377 
000000 
0003577 
103367 


013700 
000207 


000000 
105 


021116 


116 
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GETPAT = GET 8 BIT PATTERN FROM OPERATOR 


124 


-SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 


* 


; ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
» INPUTS: 
NONE. 
s OUTPUTS: 
RO OCTAL NUMBER FROM THE OPERATOR 
s CALLING SEQUENCE : 
JSR PC ,GETPAT 


GETPAT:: 
SAVE THE GENERAL REGISTERS 

1$: ID DATASC /PATDAT,0.877- 0,3 

T CSGMAN 

BR 100008 

.WORD PATDAT 

<WORD  TSCODE 

.WORD DATASC 

.WORD 377 

“WORD TSLOLIM 

“WORD TSHILIM 
10000$: 

BNCOMPLETE 1$ SRETRY IF ERROR 

MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 

RTS PC “RETURN TO CALLER 


3¢ 
sLOCAL DATA AREA 


PATDAT: 
DATASC: 


WORD 0 TEMPORARY STORAGE FOR DATA 
oy "ENTER DATA PATTERN® 


ee ee ee 


SEO 95 


GETSEL 


een et meet cet coe cal A ed at A enh ont oe 
SPNSRSSSENSHESE 


33 


NOSES 


eh ooh cad aad on wath cob cndt cB cot ed aed od? cd 
ena sat 
NrmOoOO 


PORIFOPU POP 


ROVUVVVVUGT 





cE ¢ 





1 
1 
1 
1 
1 
1 
1 
1 
4 
3 
1 
1 
1 
1 
1 


03 
a 


€ 3 


BASS RRS 


T 
- ISSUE PENU AND GE 


346 
021330 
46 000002 





LL AL OE a a 
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$ 


2 3 


OPERATOR RESPONS 


-SBTTL GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


3¢ 
sROUTINE TO ISSUE A MENU AND GET 
——-- * RESPONSE. 


: RO ADDRESS OF ASCIZ STRING OF MENU 
ee MAXIMUM ALLOWABLE OPERATOR RESPONSE 
; RO NUMBER OF THE OPERATOR'S SELECTION 
GETSEL:: 

SAVREG 


sSAVE GENERAL Necanees” 








MOV RO,R2 
18: MOV R2.R3 
2$ TST (RS) ASCII ? 
3$ “BRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC(R3)¢ “DISPLAY THE MENU 


3 “4 
S985 s222232 
o 












3$: 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 

10001$: 


sRETRY IF ERROR 


sGET THE OPERATOR'S REPLY 
sCOMPARE TO MAXIMUM ALLOWED 


sBRANCH IF OK 
sDISPLAY ERROR MESSAGE 








sRETRY 
PC sRETURN TO CALLER 
— Menu Selection Too Large ***’ 


"Enter Menu Selection: ° 
-WORD 0 


SEQ 96 


ee 
— - LL LLL _> 
- ee _— 
nal 


CZTUXAO Tus0 FRONT END PRT B 
CHKMAN 


RO 41200 
CHECK MANUAL INTERVENTION LEGALITY 





104450 
103411 
012746 021422 
4 746 000001 
104417 
706 000004 
4 
7 
045 116 


MAC 


045 





6 8 
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-SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


+ 


ROUTINE TO TEST ©OR MANUAL INTERVENTION LEGALITY. 
INPUT : 


CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS UK 


SIDE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
oy BE ie IF MANUAL INTERVENTION IS NOT 


: 
tea 
e 


sSAVE THE REGISTERS 
sSEE IF MANUAL INTERVENTION OK 


sBRANCH IF ALLOWED 
sPRINT THE WARNING MESSAGE 





C sCLEAR CARRY FOR ERROR 
1$: RTS PC ; RETURN 





NOMAN: .ASCIZ ‘ZNZA eee Manual Intervention not Allowed - Test Aborted ***' 


SEQ 97 


ee eee - -— ———— - 


SEQ 98 
PRT B MACRO M1200 29-MAR-835 13:52 PAGE 67 


CZTUXAO TUBO FRONT 
ENV ° JAGHOSTIC SPACE 


E 
IRN SETUP FREE 


-SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
NVIRN: MEMORY RO 
TRAP 















371 003072 MOV «RO, FREE : GET 1ST FREE ADDRESS... 
3717 021 7 000002 003072 ADD #2.FREE 
3718 0 003074 MOV (RO) ,FRESIZ s..eAND WORD COUNT. 
3719 0 7 000004 003074 SUB iG, FRESIZ 
3720 021 002012 MOV —s- LSUNIT,R2 ; GET NUMBER OF UNITS 

1 021 000007 003074 10$: SUB = #7,FRESIZ : TAKE AWAY 7 WORDS PER UNIT 
3722 021 DEC 
3723 021 BNE 108 
3724 021 003072 nOV FREE RO GET FIRST FREE ADDRESS 
3725 021 003074 ADD FRESIZ,RO “POINT TO LAST FREE ADDRESS 
3726 021 2 sus ti‘iék2?z«z SBACKUP 1 WORD 
3727 021 003076 MOV —s_- RO. FREEHI “STORE LAST FREE ADDRESS 
3728 021 RTS PC * RETURN 


eee 
- ee se eee 
- - —- —— a —_— 





1 & 
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- SETUP KT11 MEMORY OMANAGERENT REGISTERS 





SEQ 99 
CZTUXAO TU8O FRONT END PRT B | 
KTINIT 


-SBTTL KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 








3;* 


SROUTINE Td INIT ¥T=11 

















3738 021694 KTINIT: 
3739 021604 005037 003100 CLR —s_ KTFLG ; INIT >28K MEMORY FLAG 
3740 021610 005037 003102 CLR KTEWABLE : INIT TEST >286K FLAG 
741 021614 023727. 002120 001577 CMP  =ssLSHIME,#1577_—; Got ENOUGH MEMORY (>28K)? 
742 021622 101444 BLos 6S s«9S ; 
021624 013700 MOV § @#ERRVEC,RO : OLD ERR VEC PTR. 
4a 021630 012737 021722 000004 MOV #2$,QMERRVEC ; 
3745 021636 005737 177572 TST agsro : 
46 021642 000240 NOP : (TRAP IF NO). 
3747 021644 013737 002120 003100 MOV LSHIME,KTFLG ; ves. SET KT FLAG. 
768 021652 042737 177 003100 BIC £177 ,KTFLG ; 
3749 021660 010037 MOV = RO, AFERRVEC ; RESTORE OLD ERR VEC PTR. 
3750 0216646 CLR ; RO = AR 
3751 021666 012701 172340 MOV IPARO,R RI = KI REGS P 
021672 012761 077406 177740 1$: OV #77606, oe s SET SESCRIPTOR MG. 
021700 010021 MOY RO.C(R 1}¢ s SET KIPAR REG. 
3754 021702 062700 000200 ADD 7200" RO : BUMP AR DATA BY ‘“4k'’. 
3755 021706 020027 002000 CMP  —s-—« RO, #2000 : AT "1/0"? 
3756 021712 001367 BNE 1$ > NO. 
757 021714 012741 177600 MOV #177600 ,-(R1) s VES. SET KTPAR7 FOR 1/0. 
3738 021720 05 BR 9$ 
021722 012716 021730 23: MOV #63, (SP) : SET UP RETURN 
3761 021726 000002 RTI s RTI TO NEXT LOCATION 
763 021730 010037 000004 6$: MOV RO, AFERRVEC s RESTORE OLD ERR VEC PTR. 
021734 000207 98: ARTS PC 
1 
3782 021736 BGNPROT 
3783 021736 «(177777:«177777+=«4177777 .WORD -1, -1, =1 :NO DEVICE PROTECTION REQUIRED. 
3784 021746 ENDPROT 
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eek noc ee no am oth ced 
OuwuFlWn—o 









SSSESFESS 


~ 


end woh aad ct od aed oad ce end — 
=~]. 7-5 


me oe oe ee eee eeenae 
; eat ; = ab ad £5 Ce“ 
- S&C &£OoC 


z 


SESEITY 


; 
S 


012737 
0050 


005755 002146 
003106 


002150 
3 


003060 
002150 
003130 


040000 
3 


700 000035 


Se 
3 


JJ 6 
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002012 


003130 


oSBTTL INITIALIZE SECTION 


344 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING OF EACH PASS. 


CIF START’ OR ‘RESTART’, SET QUICK=PASS FLAG AND BUS-INIT. 
2IF “CONTINUE”, NOTHING IS REQUIRED. 


34 
s INSERT TEMPORARY JUMP TO ODT 





BGNINIT 
LSINIT:: 
MOV #EPRT1 .EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR ‘SOFT INIT’ ig # 
CLR KTENABLE CLEAR TEST ABOVE 286K F 








RAMS IZ :CLEAR RAM SIZE FOR RANERR ROUTINE 
#EF . CONTINUE 
WEF CONTINUE .RO 
CSREFG 
BNCOMPLETE 1$ 
BCC ‘ 











CMP UNITN.LSUNIT sUNIT IN RANGE? 
BHIS 4% :BR IF NO. 
TST DUFLG sDROPPED UNIT? 
BM! NXTU sBR IF YES 
aOV UNITN,RI 
ASL R1 
TST ERTABL(R1) 
BEO SETU 
ll ee sDROPPED? 
sD0 NOTHING IF ‘*CONTINUE’’. 
1$: 
sTAKE NEXT UNIT IF NOT NEW PASS. 
2s: 


:1ST PASS, BUS-INIT... 
BUS RESET. 









sMUMBER OF TESTS RUN IN PASS 





SEQ 100 


i ae - 


oe oe Oe we 


~ 
© 
~ 
™~ 
—_ 
7 
t= ] 





oO 
™ 
™ 
all 
J 


oooo 
~ 
on 


Site 


SH ATFVSKSLSNNSR 


MP FORT TrT 
rr TATE AT ATEN 


Nr 
rrr 


ba dad 
Ve TsSS 


fuesss Sesereresoececrncceys 


ooooooeoceoooocoeo cocoocoeco 


PORIRORIFU FUR 


wm 
aed 





sits 
ay 
oe 
PORIPIPIPIRIPORIAD 
YS FSSSRaaeesecges 


RERS RS 
3a 


mi 
is 
eee 











7 022316 
3875 


76 022322 
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000406 ao 19% sBR, IF THE FLAG IS NOT SET 
:(NO DEBUGGER ETC.) 
012746 0003540 MOV #340 ,-(SP) 
012746 022132 MOV #208 .,-(SP) sRETURN TO DEBUGGER 
137 JMP 0.0v7 S2@@ENTER THE DEBUGGER 
37 003332 ss CLR SKIPT sCLEAR THE SUBTEST ‘‘SKIPPER'' 
012737 177777 002152 MOV #-1 ,QVP 3---QUICK VERIFY... 
pope 021516 JSR PC ,.ENVIRN sSET ENVIRONMENT. 
004737 021604 JSR PC .KTINIT sINITIALIZE KT MEMORY MANAGEMENT 
ATTA 4 003130 MOV #ERTABL RO 
90 30$: CLR (RO)+ sCLEAR THE ERROR TABLE 
020027 003330 CMP RO, #ERTABE 
163774 BLO 30$ 
000404 BR 4$% 
005037 002152 31$: CLR ave 
000137 022242 JMP PASRPT :G0 REPORT THE STATUS 
4 
012737 177777 002150 #-1 UNI TN s INIT UNIT NUMBER... 
005037 002166 DEVCNT sCLEAR COUNT OF DEVICES RUNNING 
1oeaes CSBRK 
OOss 7 002150 UNITN see eAND SET NEXT UNIT NUMBER. 
023737 002150 002012 UNITN,LSUNIT 
103423 SETU 
012737 177777 003060 MOY #-1 ,DUFLG 
000401 eR 11$ 
DOCLN sABORT, NO MORE UNITS. 
104444 TRAP CSDCLN 
240 11$: woP 
PASRPT: 
023727 002012 000001 CMP LSUNIT #1 :HOW MANY UNITS SELECTED? 
101752 BLOS NEWPAS sBR IF v1 
005737 002166 TST DEVCNT SARE ANY STILL RUNNING? 
001747 BEQ WEWPAS sBR IF NO 
RFLAGS RO 
104421 TRAP CSRFLA 
032700 000100 BIT #ISR RO :SHOULD WE PRINT STATISTICS 
001343 BNE NEWPAS sBR IF NO 
DORPT 
104424 TRAP CSDORPT 
741 BR NEWPAS 
108: 
SETU: GPHARD UNITN,RO sGET UNIT N P-TABLE POINTER. 
013700 002150 BOY UNITN,RO 
104442 TRAP CSGPHRD 
BNCOMPLETE NXTU sBR IF UNIT NOT AVAILABLE. 
10334 Bcc NXTU : ss 
Doses? | 002186 inc EVENT Se 
012001 MOV (RO)+,R1 GET 1ST REGISTER ADDRESS. 
010137 002154 MOV R1, CSRADDR sADDRESS OF REGISTERS OF UNIT UNDER TEST 


012001 











(RO)+ RI 


SEQ 101 


LOE 


oe rr 
a A ST TT TT 


3877 Oee ee 
3878 022326 
3879 0225 







3881 022342 
3883 022544 


possseeeseras 


3880 0223536 01 


010221 


013701 
301 


010137 


460 012757 


2466 012700 


3916 
3917 022476 
3918 


104441 


104411 
045 
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002160 
002156 
017052 


002154 
000000 
017260 


003062 
177777 


116 


L 8 


MACRO M1200 29-MAR-835 13:52 PAGE 70-2 


003130 
009001 


003060 


045 


GET INTERRUPT pe 








MOV R2, 1PRI SET INTERRUPT PRIORITY. 
MOV R1, IVEC SET INTERRUPT VECTOR POINTER... 
MOV #'NTR, CRID+ +e. VECTOR... 
MOV R2,iR1)¢ seecAND PRIORITY. 
18: 
3 TST Qve 31ST PASS ?? 
: BEQ 5$ :NO, SKIP THE PASS 1 STUFF. 


1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


mov UNITN.RI 
BIS #B1115.ERTABL RI) sSAY DEVICE RUNNING 





CLR EXT sCLEAR ERROR EXTENSION FLAG. 
CMP rT SUNIT, fi SARE WE TESTING MULTIPLE UNITS? 
10$ sBR IF NO. 
YES <= GET OPERATOR FLAGS. 
sSHOULD WE PRINT UNIT #? 
“BR IF NOT. 
“PRINT THE UNIT # 
10$: 
NODEV 
MOV CSRADDR,R1 SADDRESS OF FIRST REGISTER 
MOV R1,R “START OF REGISTERS 
ADD #TSSR,R2- “ADDRESS OF TSSR REGISTER 
JSR PC, XNKM STEST BOTH CONTROLLER REGISTERS... 
acc 2$ AND GR IF ALL OK. 
MOV R1,NODEV “FLAG DEVICE AS NON-EXISTENT 
MOV #1 ,DUFLG “DROP THIS UNIT. 


23: 
FINALLY, SET CPU PRIORITY AND WERE DONE. 
5s: SETPRI #PR1O0 sENABLE INTERRUPTS. 


MOV #PR1I00, 
TRAP CSSPRI 
ENDINI 
110030: 
TRAP CSINIT 
PUNIT: 


rely /ENENZAtteee TESTING UNIT ZD2ZA teeee/ 


SEQ 102. 


—ae -_-— 
EE LLL LLL LLL 


. TT 








SEQ 103 
CZTUXAO TU8O FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 71 | 
ADD AND DROP UNITS SECTIONS | 
3920 .SBTTL ADD AND DROP UNITS SECTIONS 
3922 a+ 
3923 THE ADD-UNIT SE‘TION CONTAINS THE CODING THAT CAUSES A DEVICE 
3924 * TO BE (A) ADDED Tu THE TEST LIST FOR THE FIRST 
3923 ; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY TOROPPED. 
3927 022544 ait BGNAU 
3928 022544 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
022546 006301 ASL Ri TA E 
3930 022550 052761 100000 003130 BIS #100000. ERTABL(RI) ; SET THE “ACTIVE BIT 
3931 022556 042761 040000 003130 BIC #40000,ERTABL(R1) ; CLEAR THE ‘DROPPED’ B1T 
3932 022564 PRINTF #1$,R0 
022564 010046 MOV RO,-(SP) 
022566 012746 022612 MOV #1$,-(SP) 
022572 012746 000002 MOV #2,-(SP) 
022576 010600 MOV SP,RO 
022600 104417 TRAP CSPNTF 
022602 062706 000006 ADD 86,SP 
3933 022606 EXIT AU 
022606 000167 <WORD JSJMP 
022610 000026 .WORD 110031-2-. 
3934 022612 045 116 045 1$: -ASCIZ /2NZA UNIT ZD%ZA ADDED/ 
3935 EVEN 
3936 
3937 022640 ENDAU ; UNUSED. 
022640 110031: 
022640 104452 TRAP CSAU 


s++ 
THE DROP-UNIT SECTION CONTAINS : CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST 


“DROPPING. THIS IS JUST TO TELL THE MAN. 
DROPPED’ UNITS ARE RE-SELECTED ON OPERATOR "STA OR ‘‘ADD'" 
E REMAIN INACTIVE. THE DISPLAY" COMMAND 
INT ALL D UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 


UPON ENTRY, RO CONTAINS THE UNIT TO GE DROPPED. 








LSDU 
012737 177777 003060 MOV #-1 ,DUFLG 
010001 MOV RO,R1 
006301 a R14 
052761 140000 003130 #140000 ,ERTABL (R1) ; DROPPED 
000240 000240 000240 tO. 240,240 22222222? 


PRINTF #1$,R0 
01 MOV 
012 022716 
og 000002 


2746 

2746 

oaeat? 
062706 


st 





A INI Som 
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3957 022716 
3958 
3959 022746 


022746 
022746 


3961 
3968 022750 
750 


045 


104453 


116 


012703 000550 
004737 017104 


103420 
012727 


000000 
0 013727 
000000 


104461 


000372 
002116 
177772 
177756 


020136 


n 8 
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045 1$: oy /ENZA UNIT ZDZA DROPPED/ 

ENDDU 

110032: 

aa C$Du 

: AUTO-DROP CODE SECTION. 
BGNAUTO 

LSAUTO:: 
MOV #360. .R3 

10$: JSR PC ,WAITF sWAIT FOR SSR TO 
BCS 208 aT WHEN SSR IS SET 
DELAY 250. 
MOV #250. ,(PC)+ 
WORD 
MOV LSDLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE 274 
DEC = 
DEC R3 sBUMP COUNTER DOWN 

0$ sKEEP GOING 

208 JSR PC ,CKDROP sTRY AND DROP UNIT 
ENDAUTO : UNUSED. 

110033: 


TRAP CSAUTO 


WAIT FOR .25 SECONDS 


sENOUGH TIME FOR al REEL TO REWIND 


SEQ 104 


ce A --- 
eel 


ee ee ee eee —— ee eee eee ee ee 
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-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 





° 
THE CLEANUP COD'NG SECTION CONTAINS THE CODING THAT IS 
: EXECUTED AT THE End OF EACH PASS (OR SUB-PASS). 
: ;_ USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 
LSCLEAN: : 
005737 003060 TST DUFLG :*"*DROPPED’’ FLAG IS SET ON... 
100405 BAI 1$ °.. AND GROSS CONTROLLER FAULT... 
s22DON'T Ta TO xCT CLEANUP CODE. 
012765 000000 000000 MOV -* 5 TSSR(RS) :D0 SOFT INIT 
004737 017104 - JSR PC,WA ITF 
2$: ENDCLN 
110034: 
104412 TRAP CSCLEAN 


; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS CALLS THAT GENERATE STATISTICAL REPORTS. 





; 
' 
' 
SS TT a re a ee a —_— 


BGNRPT 
LSRPT:: 
PRINTS #DEVSUM 
012746 023310 MOV #DEVSUR,-(SP) 
023052 012746 600001 MOV #1,°(SP) 
023056 010600 MOV SP, 
tte 104416 TRAP CSPNTS 
0 062706 000004 ADD SP 
996 023066 010246 MOY R2,°(SP) 
3997 023070 0610 MOV R3,-(SP) 
3998 0235072 01 MOV R4,-CSP) 
3999 0230 012704 003130 MOV RTABL .R4 ; GET START OF ERROR TABLE. 
4000 023100 005003 CLR hk} ; CLEAR UNIT 
4001 023102 011402 1$: MOV (R4&) RZ : GET ERROR TABLE ENTRY & TEST IT. 
ree ithe 1467 BEQ 4$ ; ZERO IF UNIT NOT RUN 
4003 023106 BPL 4% 
4004 023110 BIT #B1T14,R2 : WAS UNIT DROPPED? 
4005 023114 BNE 2% ; BR IF YES 
4006 023116 BIC #°C7777 ,R2 : GET ERROR COUNT FIELD 
4007 oeaiss PRINTS #DEVONL.RS.R2 =; PRINT 
31 MOV R2,-(SP) 
023124 MOV R3,-(SP) 
0231 Oy SDEVONL .- (SP) 
= MOV #3,-(SP) 
1 MOV SP.RO 
140 TRAP CSPNTS 
142 ade #10,SP 
4008 146 BR 4 
4009 150 23: CMP R2,#160000 : WAS UNIT NON-EXISTENT? 
4010 Oea tee BNE ; BR IF NO 
4011 156 PRINTS #DEVNXR,RS 
sider MOY 3,-(SP) 
160 ROV SDEVNXR .- (SP) 
023164 Rov re eee 





———eee oe 


402 

4629 023310 
4030 023345 
4031 023415 
4032 025477 
4033 023560 
4034 


0600 
104416 
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706 009006 


160001 


3$: 


4$: 











; @ 
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#DEVDRO.RS.R2 


(SP)+,R2 
; UNUSED. 


CSRPT 


/ENZADEVICE STATUS SUMMARY: 2N/ 

{ZA UNIT‘ ZD3ZA ONLINE, ERRORS = 

/ZA UNIT ZD0352A 

/ZA UNIT ZD3ZA DROPPED, NOT READY AT STAR 
/2A UNIT ZD3ZA DROPPED, ERRORS = 2D2N/ 








em oe ee eee ee 


= ZD%N/ 
DROPPED, NON-EXISTENT REGISTERZN/ 
ARTUPZN/ 


SEQ 106 


———— 


ee ee ee ---- —— ~ 


’. 9 


7 
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CZTUXAO TUBO FRONT END PRT B 
TEST 1: FIFO EXERCISER 





Do Subtest 5 FO Input Ready 
_ Subtest 6 FO Verify Reset FIFO test 
4084 023630 BGNTST 
023630 Tl: 
4085 023630 005037 002170 CLR FATFLG sCLEAR FATAL ERROR FLAG 
34 005037 003100 CLR KTFLG sHOLD OF KT11 
0 012700 031216 MOV #TST1710,RO “ASCII MESSAGE TO IDENTIFY TEST 
737. (017372 JSR PC, TSTSETUP :00 INITIAL TEST SETUP 
2 $0 012737 000002 002164 MOV #2. ,LOOPCNT sPERFORM 2 ITERATIONS 
023656 737 020230 JSR PC .KTOFF sSHUT OFF MEMORY MANAGEMENT 
4095 023662 005037 003102 CLR KTENABLE SREALLY SHUT DOWN KT-11 
: THIS CODE CHECKS FOR THE DRIVE TO BE AT BOT VIA A REWIND COMMAND 
4103 023666 : BGNSUB 
02 T1.1: 
02 104402 TRAP  C$BSUB 
6106 023670 012737 014544 033126 MOV #6500. .TI7DLY :SET UP LOOP COUNTER 
4106 seeaererereracererereererecereeerreeenganaeeseneeeeeeeeeneanegeeseneneserseaeaseaees 
4107 ; 
4108 [ISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF THERE'S AN ERROR 
4110 + eeeeeraerenrrereerreereeeereersereneeneneteneteceerentaereeetentrastaneeneeteneers 
4ii1 
4112 023676 004737 016630 5$: JSR PC, SOF INIT sD0 INITIALIZE ON CONTROLLER 
te ote acs 108 son iF IAT WAS Ox 
HA 012727 000250 MOV #250, (PC)* 
023710 spray eWORD 
02 ate 13727 002116 MOV LSDLY.(PC)* 
023720 000000 177772 _ cer _fipt) 





‘in -SSTTL TEST 1: FiFO EXERCISER 
: TEST DESCRIPTION: 

: This test uses the Write Subsystem Memory command to 

: verify the controller's FIFO and saone toned status and 
; control logic. 

: TEST STEPS: 

: REPEAT FOR LOOPCNT 

; BEGIN 

$ FO Initialize status test 

: FO Write Single Byte test 


FI 
FI 
FIFO Write Multiple Bytes test 
hon, Verify ILW oy test 

FI 


° 
: 
bs 


—E 9 


CZTUXAO TUBO FRONT END PRT B MACRO M1200 29-MAR-83 15:52 PAGE 76-1 
TEST 1: FIFO EXERCISER 


SEQ 108. 





















023724 001375 BNE 4 
: is 005367 177756 DEC “231PC) 
115 0 004737 020064 JSR PE FATCHK SINCREMENT AND CHECK FOR MORE THAN 25 ERRORS 
4116 025740 016501 000000 MOV —s- TSSWERS), [CONTENTS OF THE TSSR REGISTER 
4117 023766 ERRDF ERRNO, SiERn. st IMSG FATAL ERROR TSSR WAS NOT OK 
023744 104455 TRAP  CSERDF 
023746 000144 WORD 1 
OSare2 O1ies6 WORD SFIASG 
4118 023754 10S: : 
4120 023754 012704 032640 MOV —s-: @TITPACKET. RG ;SUBROUTINE NEEDS PACKET ADDRESS 
rit 3 SRAAAAAAAAAAAAAASAAAAATHAAAALAERAAAAAAAHAARLAHAAAHAEAARAAKHAHAAAAATAHAAKA TAH AAeLATeKeeenesess 
124 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
rt + Seeaneaneeeareecerereceeecereceenenneaneenerennenreneneereeeeareerreneeenenneerereerereets 
4 
4128 023760 004737 010322 JSR —s- PC, WRT CHR ISSUE WRITE CHARACTERISTICS 
4129 023764 103407 acs.tti “BR IF COMMAND ISSUED IS 
4130 023766 004737 020064 JSR —s« PC FATCHK ; INCREMENT ANd CHECK FOR MORE THAN 25 ERRORS 
4131 023772 010001 mov —s«aRO RI [SAVE CONTENTS OF TSSR 
4135 0237746 ERRHRD ERRNO,WRIMSG,SFIMSG  :WRITE ONARACTERISTICS FAILED 
023774 106456 CSERHRD 
023776 000145 ; 101 
024000 004754 “WORD  WRTMSG 
024002 011656 “WORD  SFIMSG 
4136 
tis 
4139 seteeeereaeererrereeneerereesereeereenagrereagaeeanerearereanaeeeneaeageressegeneseneenseres 
4140 : 
4161 ISSUE A REWIND COMMAND TO THE SELECTED TAPE DRIVE 
4143 + Peeneeneeneenerseeceerenetereneeeanreneenraneeneatrareneserenennecarentrerenreneereneeee 
4144 
4145 026006 004737 010424 15$: JSR PC REWIND ;CALL TAPE REWIND COMMAND 
4146 024010 103412 acs F # 
414 OSeots 005337 033126 DEC —-—sT'17DLY SEC DELAY COUNTER 
4148 024016 001327 BNE 6«:s«SSS$ “BR IF LOOP 1S REQUIRED 
4149 010001 mOV—séRO, et “SAVE TSSR 
4150 2 004737 020064 JSR —s- PC FAT “INCREMENT AND CHECK FOR MORE THAN 25 ERRORS 
4154 ERRHRD ERRNO, T17RUN,PRTSSR REWIND NOT ACCEPTED 
CSERHRD 
WORD 10 
“WORD 1 
WORD  PKTSSR 
30$:  CKLOOP “LOOP IF SELECTED 
TRAP  CSCLP1 
TRAP  CSCLP1 
030762 ymps«sTRPENND -@aaTEMP JUMP OVER FIFO TESTS 








rr 
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TEST 1: SUBTEST 1: FIFO INITIALIZE STATUS TEST 


SEQ 109 


. -SBTTL TEST 1: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
TEST 1: SUBTEST 1: 
SUBTEST DESCRIPTIUN: 


This test verifies, by using the Read Status select code, 
that the FIFO status is in the nin O initial state after 
the controller is initialized (I y 

Output Ready and Data In Miss FAL e. "i status 

signals are checked by the controller's self-test 
sequence, so this subtest is actually more of a partial 
check of the Read Status function than the FIFO status. 


TEST STEPS: 


BEGIN 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer 
Do a WRITE SUBSYSTEM Read Status 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
If Data In Miss NOT=0 Then Print Error 





Write to TSSR register to soft initialize the controller 


SS 
= 
wie 
wa 






















41 046 : 
4189 024046 004737 016630 JSR PC, SOF INIT SWRITE TO TSSR TO sor INITIALIZE 
4 103405 BCS 108 <BR IF SOFT INIT OKAY 
010001 MOV RO,R1 [SAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG [DEVICE FATAL DURING INIT 
104655 TRAP  CSERDF 
024060 000146 .WORD 102 
003550 “WORD SFIERR 
024064 011656 “WORD SFIMSG 
: Do @ WRITE CHARACTERISTICS to setup a message buffer 
37 002170 108: FATFLG SCLEAR FATAL ERROR FLAG 
012704 0 OTITPACKET RG GET THE ADDRESS OF COMMAND PACKET 
76 004737 010322 PC,URTCHR 3D0 WRITE CHARACTERISTICS COMMAND 
102 103407 508 “BR IF CARRY SET (GOOD RETURN) 
104 010001 MOV RO, R1 SSAVE CONTENTS OF TSSR 
MH NEXT .ERRNO 








423: ERRDF ERRNO,T17SSR.PKTSSR sDEVICE FATAL SSR domes’ >” wi 

















106 CSERDF 
110 103 
112 031 TI7SSR 
114 .WORD  PKTSSR 
4201 ett 004 JSR PC .FATCHK -INC AND CHECK FOR MORE THAN 25 ERRORS 
4202 ig 508: CKLOOP 
0241 CSCLP1 
rt 
4 : Do a Write Subsystem READ STATUS 
4205 0241 JSR PC,117 :SETUP PACKET FOR READ STATUS 
1 eTi7PK2,R4 “GET WRITE SUBSYSTEM COMMAND PACKET 
‘ MOV a4. TSDB(RS) *SET THE PACKET ADDRESS TO EXECUTE 
4208 024140 JSR WKTSSR =—s—C§§s$NS$s( sSCstCi‘ WAT FOR SSR TO SET 6S 





—_———_———w oes 


— ee ee ee ee eee ee ee ee eee ee ee 


a TUBO FRONT 


TEST 
4209 








026144 


103407 
010001 


SF 
S 


oo 
~e 
Sa 

WW 


~s 
~_ 
- % 
= 
= a 


104403 


020064 
032604 
031012 
032702 
000020 
000040 
000200 


032662 
030772 
000024 
011522 


pee 
004737 020136 


708: 


1608: 


TST FATFLG 
BEG 1608 
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: SUBTEST 1: FIFO INITIALIZE STATUS TEST 


BCcs 708 sBR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT ERRNO 


ERRDF E®RNO,T173SSR,PKTSSR sDEVICE FATAL SSR PAtLES Teves 





CSERDF 
-WORD 1 

WORD TI73SSSR 
WORD  PKTSSR 
THAN 25 ERRORS 
















JSR PC FATCHK sINC AND CHECK FOR MORE 
CKLOOP LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
Set WORDS 0-7 of ened message buffer = to recv since not testing 
JSR PC, TI7SETEXP sSET WORDS O-7 EXPD=RECV 
MOV i 
MOV 
MOV 
MGV : 
B1S xP 
BIC v,¢ SET EXP OU E 
BIC #S2.D1M,(R1) ‘aed ‘pa DATA IN MISS = FALSE 
If Input Ready NOT=1 then Print érr 
If Output Ready NOTs0 or Data in Hiss NOT=0 Then Print Error 
CLR PURO HIGH RECV ADDRESS FOR CKMS 
ST17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 
MOV @TI7EXP R2 sEXPD ADDRESS 
MOV #20. .R3 SNUMBER OF BYTES. TO COMPARE 
JSR PC ,CKMSG2 SEXPD EQUAL RECV? 
Bcs 4 («90S BR IF YES 
NEXT .ERRNO 
ERRHRD ERRNO,TI7ICMP.MSGSTAT  ;REPORT ERROR 
TRAP CSERHWRD 
“ 105 
‘ TI71CMP 
eWORD MSGSTAT 
CKLOOP sLOOP OW ERROR, IF FLAG SET 
TRAP CSCLP1 
ENDSUB sALAIAILEdddt END SUBTEST (44/07/1707 
110037: 
CSESUB 





sANY FATAL ERRORS ? 


: H IF NOT 
JSR PC ,CKDROP ;TRY TO DROP THE UNIT 


CZTUXAO TUBO FRONT 


104402 


6 
ptt Lh 








END PRT B 
TEST 1: SUBTEST 2: FIFO 


016630 


ee Ee a 
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WRITE SINGLE BYTE TEST 


; BEGIN 


-SBTTL TEST 1: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


++ 
TEST 1: SUBTEST 2: 
SUBTEST DESCRIPTION: 


This subtest verifies the ability of the FIFO to correctly 
pass a single data ats from input to output. For each 
of 256 data values (0-377 octal) the following is done: 

1. Initial FIFO status is checked 

2. The Write FIFO function, specifying a count of 

one byte to be written is executed. 
3. Read Status is executed and FIFO status is checked. 
4. Crgp lolli executed and the data and final status 
s checked. 


; TEST STEPS: 


Write to TSSR to soft initialize 
a WRITE CHARACTERISTICS to setup a message buffer 
a Write Subsystem READ STATUS 
Input Ready WOT=1 Then Print Error 
Output Ready NOT=0 Then Print Error 


Do 
Do 
if 
If Data In Miss NOT=0 Then Print Error 


REPEAT FOR DATA FROM 0 TO 377 OCTAL 
BEGIN 


Do a Write Subsystem WRITE NPR to set tape direction out 
Do a Write Subsystem WRITE FIFO with byte count equal ‘to 1 




















Do a Write Subsystem READ STATUS 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=1 Then Print Error 
If Data In Miss NOT=0 Then Print Error 
Do Write Subsystem READ FIFO with byte count equal to 1 
if Data read from FIFO NOT= to Data sent Then Print Error 
Do a Write Subsystem READ STATUS 
If Input Ready NOT=1 Then Print Error 
If Output Ready NOT=0 Then Print Error 
_ Data In Miss NOT=0 Then Print Error 
END 
BGNSUB SUAITIATLt11s BEGIN SUBTEST //// 4/7/1717 
: "TRAP CSBSUB 
is Write to ISSR register to soft initialize the controller 
JSR —s- PC, SOF INIT SWRITE TO TSSR TO SOFT INITIALIZE 
eBcs 108 : F SOFT INJi OKAY 














I 
ERROF Ad SFIERR,SFINSG SE COP ATAL DURING INIT 
: : , TRAP  CSERDF 








SEQ 1%1 


TEST 
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1: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
024314 011656 WORD SFIMSG 
4296 : Do a mtn SRARAL TERISTICS to sete, « An” ATAL ERROR patter 
4297 ERE 005037 002170 ios: CLR FLG ERROR 
012704 032640 MOV OT 1TPACKET RG OF COMPA PACKET 
ee 004737 010322 PC ,wRTCHR DO ‘alte "CHARACTERISTICS COMMAND 
me 103407 BR IF CARRY SET (GOOD RETURN) 
010001 m... 3 SAVE CONTENTS OF TSSR 
: a 428: ERRNO, T17SSR,PKTSSR DEVICE FATAL SSR FAILED 10 SET 
6 TRAP COEROF 
Gace WORD TI7SSR 
344 WORD PKTSSR 
oes 004 020064 JSR PC .FATCHK ; INC _AND CHECK FOR MORE THAN 25 ERRORS 
4305 024 32 50S: CKLOOP sLOOP ON ERROR, IF FLAG SET 
02435 TRAP =-« CSCLP1 
3 Do a sal suas wpeysten READ STATUS 
4307 024354 032422 JSR SETUP PACKET FOR READ STATUS 
otra 033010 Ott TPKo ws :GET WRITE SUBSYSTEM COMMAND PACKET 
024 177776 OV r4, TSOB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 
4370 017220 JSR PC, CHKTSSR WAIT FOR SSR TO SET 
374 70$ SBR IF CARRY SET (GOOD RETURN) 
ante 024376 MOV RO,R1 sSAVE CONTENTS OF TSSR 
1 + er NEXT .ERRNO 
4314 026400 628: ERRDF ERRNO,1173SSR.PKTSSR DEVICE FATAL SSR FAILED TO SET 
024400 104455 TRAP CSERDF 
000153 d 107 
0313€4 j T173SSR 
011670 WORD PKTSSR 
4315 gees? 004737 020064 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4316 14 708: CKLOOP sLOOP ON ERROR, IF FLAG SET 
024414 104406 TRAP CSCLP1 
; Set — 0-7 at Ri message buffer = to recy since not testing 
431 oeeane 004737 032604 JSR TI7TSE sSET WORDS O-7 EXPD=RECV 
2 012701 031012 MOV au TexstA.m [GET EXPECTED READ STATUS 
ref 012702 032702 BOY 7BFSTA,R2 : AD 
4321 ROY 3 
re} wy 3 
& on BIS ; 
4 BIC b 
o353 1 t Ready M0T=1 then Print é 
3 = rin rror 
4327 ; If Output Ready NOT=0 or Data in Riss NOT=0 Then Print Error 
& 52 005000 CLR RO ey RECV ADDRESS FOR CKASG2 
rs 54 moy #T17BFR,RI RECV ADDRESS FOR CKMSG2 
4 012 Mov BTITEXP RZ 
4331 any #20., 
4 70 00473 PC ,.CKMSG2 
& 7% ecs 
4334 76 NEXT ERRNO 
4335 7% 828: ERRHRD ERRNO, T171CRP.MSGSTAT 
76 104456 TRAP CSERHRD 
$00 000154 ° 108 
$02 031603 ; TI71CMP 
4336 020806 908:  CKLOOP SLOOP ON ERROR, IF FLAG SET — 
srt ee = a | 


SEQ 112 





ne TUSO FRONT 


TEST 


4337 


4338 
4339 024510 
4340 024516 
4341 








012737 


END PRT GB MACRO A 
: SUBTEST 2: FIFO WRITE SINGLE eyie TEST 


000000 002256 


012700 000100 
004 


y 
017220 


020064 


1 6 
017220 
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; Repeat for DATA from 0 to 377 
"OV 


1028: 


107$: 


1128: 


120$: 





#0,DATA sGET FIRST DATA 

3 T LABEL 
Do a Write subsystem WRITE NPR to set t 
MOV @uP .OUT R T 


direction out 

















JSR 

MOV T C CKET 

MOV 3SET THE PACKET ADDRESS TO EXECUTE 

JSR WAIT FOR SSR TO Ser 

BCs “BR IF CARRY SET (GOOD RETURN) 

F “SAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF ERRNO,TIT4SSR.PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
TRAP  —- CSERDF 
.WORD 109 
“WORD T174SSR 
“WORD  PKTSSR 

JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP SLOOP ON ERROR, IF FLAG SET 
TRAP  CSCLP1 

Do a Write Subsystem WRITE FIFO with byte count equal to 1 

MOV a SWRITE 1 BYTE 

MOV DATA RI SFIFO WRITE DATA ADDRESS 

JSR T17UF IF “SETUP T17PK2 FOR WRITE FIFO 

MOV ori yPke hs <GET WRITE SUBSYSTEM COMMAND PACKET 

MOV 44 TSDB(RS) 3SET THE PACKET ADDRESS TO EXECUTE 

JSR PC.CHKTSSR WAIT FOR SSR TO SET 

acs 1108 “BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 SSAVE CONTENTS OF TSSR 

NEXT.ERRNO 

ERRDF ERRNO.TITSSSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
TRAP  CSERDF 
.WORD 110 
“WORD T175SSR 
“WORD  PKTSSR 


PKT 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


JSR PC .FATCHK 
CKLOOP 


seer URITE SU FOR READ oo. 


TE SUBSYSTEM COMMAND PACKE 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR = TO SET 
BR IF CARRY SET (GOOD RETURN) 
axe ;SAVE CONTENTS OF TSSR 











o ERRNO 
ERRDF ERRNO,TI75SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
~ WORD 
«WORD Mt 
eWORD PKTSSR 
JSR PC ,FATCHK : INC AND CHECK FOR MORE THAN 25 ERRORS 
CKLOOP sLOOP ON ERROR, IF FLAG SET 





CSCLP1 


TRAP 
Set WORDS O-7 of exod message b = te nce Ne elie 


SEQ 115 


A LC LO OT - > 


: 
me wee a ee ee ete ee 


















—— a ne ee 
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TEST 1: SUBTEST 2: FIFO URITE SINGLE BYTE TEST 
4379 024700 004737 032604 JSR PC, TI7SETEXP 3SET 
4380 024704 031012 MOV i GET 
032702 MOY 3GET 
MOV SET 
MOV SET 
000020 Bis SET 
000040 BIS :SET EXP OUTPUT READY= 1 
000200 BIC DIM, CR sSET EXP DATA IN MISS = 0 
; If Input ReadyB NOT=1 then Print. Error 
: If Output Ready NOT=1 or Data in Riss NOTs0 Then Print Error 
ht CLR RO HIGH RECV ADDRESS FOR CKMSG2 
4390 024 012701 032662 MOV @T17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 
4391 024742 012702 030772 MOV #TI7EXP RZ SEXPD ADDRESS 
re 024746 012703 000024 MOV #20., sNUMBER OF BYTES TO COMPARE 
4393 026752 737 011322 JSR PC, CKMSG2 sEXPD EQUAL RECV? 
4396 024756 103404 acs 140$ BR IF YES 
4395 024760 NEXT .ERRNO 
4396 024760 1328: ERRHRD ERRNO,TI7SCMP.MSGSTAT  ;REPORT ERROR 
024760 104456 TRAP CSERHRD 
024762 000160 eWORD 112 
othe 031761 -WORD 1173CHP 
024766 012172 4 MSGSTAT 
4397 024770 140$: CKLOOP 3LOOP ON ERROR, IF FLAG SET 
024770 104406 TRAP CSCLP1 
3 Do Write Subsystem READ FIFO with Ay R. count equal to 1 
MOV #1, BYTE COUNT 
032544 JSR PC, “TITRE LF :S€Tup TI 7PK2 FOR READ FIFO 
3301 MOV aTi7PK2, RG sGET WRITE SUBSYSTEM COMMAND PACKET 
177776 MOY R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
7 017220 JSR PC .CHKTSSR WAIT FOR S$ 0 SET 
BCS 1508 BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 : SAVE CONTENTS OF TSSR 
NEXT .ERRNO 
1428: ERRDF ERRNO,T176SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 113 
-WORD 1176SSR 
-WORD PKTSSR 
JSR PC FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
150$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPI 
: Set WORDS 0-7 of one message buffer = to recy since not testing 
JSR PC, TI7SETE sSET WORDS O-7 EXPD=RECV 
MOV STI7TEXSTA,RI °GET EXPECTED READ STATUS 
mO¥ @Ti7BFSTA,R2 °GET RECV READ STATUS 
ROY DATA, (R1)+ sSET EXPD WORD #8 = COUNT DATA 
(R2), (R1) °SET EXPD WORD #9 = RECV (NOT TESTING) 














MOY 
If Data read. from FIFO NOT= to Data — BR Print Error 


The data is in WORD #8 of the weseere ie 
CLR RO ety “ADDRESS FOR CKMSG2 


OV STI7BFR RI SLOW RECV ADDRESS FOR CKMSG2 
ROV STI7EXP RZ sEXPD ADDRESS 

MOV #18. RS sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 SEXPD EQUAL RECV? 

BCS 1 :BR IF YES 

XT ERRNO 









SEQ 114 


Se 
ELE OT a. _ 


— ee 


——— aaa aaa —— 


TEST 
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: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
4426 025106 152$: ERRHRD ERRNO,TI7Z2CMP.MSGSUB $;REPORT ERROR 
035106 104456 TRAP CSERHRD 
625110 000162 -WORD 114 
025112 031665 -WORD T172CMP 
Seat 013564 «WORD #SGSUB 
46427 025116 1608: CKLOOP :LOOP ON ERROR, IF FLAG SET 
025116 104406 TRAP CSCLPI 
oe 3 Do a urtes 2 Saeee READ STATUS 
4430 025120 0064737 032422 JSR sSETUP PACKET FOR READ STATUS 
4431 025124 012704 033010 MOV ATE Fi SGET WRITE SUBSYSTEM COMMAND PACKET 
Prt | 5 51 Beef 177776 MOV R4, TSDOB(RS) ‘SET — PACKET ADDRESS TO EXECUTE 
4433 025134 004737 017220 JSR PC, CHKTSSR WAIT FOR SSR TO SET 
34 025140 103407 BCs 170$ “BR IF CARRY SET (GOOD RETURN) 
4435 eee les 10001 ~ i m... + SAVE CONTENTS OF TSSR 
4637 o55ye4 162$:  ERRDF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
025144 104455 TRAP  CSERDF 
025146 163 eWORD 115 
025150 031364 -WORD T173SSR 
025152 011670 -WORD PKTSSR 
4438 025154 737 020064 JSR PC FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
4439 025160 170$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
025160 104406 TRAP CSCLP1 
644 : Set WORDS 0-7 of ome message buffer = to recv since not testing 
4441 025162 737 032604 JSR PC, T17SET sSET WORDS O-7 EXPD=RECV 
rer 025166 012701 031012 ROY @TI7EXSTA,RI :GET EXPECTED Wate STATUS 
4443 025172 012702 032702 MOV #T17BFSTA,R2 sGET RECV READ STATUS 
4444 025176 012221 MOV (R2)¢,(R1I)¢ sSET EXPD WORD #6 = RECV TEMP 
4445 025 011211 MOV »,¢(R1) sSET 
4446 025202 052711 000020 BIS #S2.INRDY, (R1) zSET EXP INPUT READY= 1 
4447 025206 042711 0600040 BIC #S$2 .OUTRDY, (R1) >SET 
4448 025212 042711 000200 BIC #S$2.D1M,(R1) sSET EXP DATA IN MISS = 0 
44% ; If Input Ready NOT=1 then Print Error 
4450 ; If Output Ready NOT=0 or Data in Hiss NOT=0 Then Print Error 
4451 eta 5 CLR RO HIGH RECV ADDRESS FOR CKMSG2 
mrt 5 012701 032662 MOV STi 7BFR,R1 “LOW RECV ADDRESS FOR CKMSG2 
445 $224 012702 030772 MOV #TI7EXP .R2 sEXPD ADDRESS 
4454 025 012703 000024 MOV #20. ,R3 SNUMBER OF BYTES | TO COMPARE 
4455 025 004737 011322 JSR PC CKNSG2 sEXPD EQUAL RECV? 
4456 025240 103404 BCS )6—iéN8088 BR IF Y 
4457 025242 NEXT .ERRNO 
4458 025242 1728: ERRHRD ERRNO,TI74CMP,MSGSTAT  ;REPORT ERROR 
$242 104456 TRAP § CSERHRD 
44 164 -WORD 116 
WORD T174CMP 
012172 -WORD MSGSTAT 
4459 180$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
104406 TRAP CSCLP1 
4460 FORCEXIT 205$ saad 
4461 37 002256 INC sGET NEXT TEST DATA 
cant 023727 002256 000377 CMP DATA,#377 sDONE 0 TO 377? 
76 101 BHI 205$ sBR IF YES 
“ais 098306 000137 024516 205$ JPP sD0 ANOTHER TEST PATTERN 
4467 025304 ENDSUB SULTATTATTATTL END SUBTEST /////00/0/ 





SEQ 115 
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TEST 1: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


025304 

° 104403 

poet U4 002170 TST 
$314 001402 BEQ 

cert 035 098 14 004737 020136 JSR 


FATFLG 
PC, LKDROP 


L10040: 
ANY FATAL ERRORS ? 


BRANCH 
sTRY TO DROP THE UNIT 





ee le ——— 


CSESUB 


SEQ 116, 


—— ——s-~ — 


he a TUSO FRONT END PRT B 
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MACRO M1200 
TEST 1: SUBTEST 35: FIFO WRITE MULTIPLE BYTES TEST 


4475 
4476 
&4 


4 
4522 025320 
025320 
025320 104402 


45 
4525 3388 
& 4 hf 0166350 


Se Ge Ge Se Oe Bs Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Se Ge Se Ge Ge 
> 


és 


If 
If 
4 Date. In Miss NOT=0 


-SBTTL TEST 1: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


+ 
TEST 1: SUBTEST 3: 
SUBTEST DESCRIPTION: 


This subtest verifies the apes tty of the cae -” correctly 
ass a multiple data aveee from t to ou 
he following s oops * is done wit RR ata patterns 
and byte counts o 64. 
1. Initial FIFO. status is checked 
. The Write FIFO function. 
. Read Status is executed and FIFO status is checked. 
- Pry hc Ai executed and the data and final status 
s checked. 


wr 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 





Then Print Error 
Then Print Error 
Then Print fee 
NOT=0 Then Print Erro 





If L 
REPEAT FOR sOATA 0 To 377, 377 T0 0, FLOATING "y S,0°S AND ALL 1°S/0°S 
Tate FOR BYTE COUNT 2 TO 64 DECIMAL 


G] 
Do a Write Subsystem WRITE ge set tape direction out 


Do a Write Subsystem WRITE F 
Do a ity Fe apg READ STATUS 
Inpu NOT=1 Then Print Error 
Outpu fe "hea NOT=1 Then Print Error 
Then Print Error 
Last Word NOT=0 Then Print Error 
Do Write Subs _, READ FIFO 
A Data read from FIFO NOT= to Data sent Then Print Error 
Do a wih Subsystem READ STATUS 
If Input Ready NOT=1 Then Print Error 
if output Ready NOT=0 Then Print Error 
If La 





ta In Miss NOT=0 Then Print Error 
st Word NOT=0 Then Print Error 


SAIIIIITTTTTE «BEGIN SUBTEST ////////11 
"TRAP ss CSBSUB 


BGNSUB 


Write to TSSR register to soft initialize the controller 
JSR PC SOF INIT sWRITE TO TSSR TO = INITIALIZE 
BCS 10$ F T INIT OKAY 


3BR IF SOF 
; SAVE wht = Lad 


MOV RO.R1 
ERRDF _ERRNO, SFIERR, SF IMSC :D fad 


SEQ 117 





Ne TU8O FRONT END MACRO #1200 
TEST 1: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


025332 


4530 
4531 et ob 


6338 095 OSs 352 004 


‘3 5 025360 


ve 


025370 
4538 025372 004737 


4539 025376 
025376 


4540 
4541 025400 
4542 025404 


54 
4548 025424 
5424 


025426 000166 
Ent: 031364 


4549 025434 
4550 025440 
025440 





PRT B 


002170 
032640 
010322 


020064 


032422 


017220 


020064 


7? 032604 
0310%2 


032702 


42$: 


62$: 





B 10 
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TRAP CSEROF 
~WORD 116 
-WORD SFIERR 
-WORD SFIMSG 

Do a WRITE CHARACTERISTICS to setup a wooeage buffer 

CLR FATFLG sCLEAR FATAL ERROR FLA 

MOV #T17PACKET RS sGET THE OF CORMAND P ACKET 

JSR PC, ,WRICHR :D0 WRITE art tase te COMMAND 

BCS 50$ sBR IF CARRY SET (GOOD RETURN) 

+ a “a SSAVE CONTENTS OF TSSR 

ERRDF ERRNO,TI7SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
eWORD 117 
-WORD TI7SSR 


«WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


sSETUP PACKET FOR READ STATUS 


JSR PC ,FATCHK 
CKLOOP 


Do a wai : READ STATUS 
JSR 


MOV OTiTPK2. R4 “GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) “SET THE PACKET ADDRESS TO EXECUTE 

JSR PC.CHKTSSR “WAIT FOR SSR TO SET 

BCs 708 3BR IF CARRY SET (GOOD RETURN) 

OV — anne’ SSAVE CONTENTS OF TSSR 

ERRDF ERRNO,T173SSR,PKTSSR § ;:DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
“WORD T173SSR 


eWORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG set 
RAP “SCLP1 
Set WORDS 0-7 of ouee message buffer = to recy since not "Gatien 
JSR :SET 


JSR PC .FATCHK 
CKLOOP 


PC, TI7SETE ET WORDS 0-7 EXPD=RECV 
MOV #TITEXSTA,R1 °GET EXPECTED READ STATUS 
MOV #TI7BESTA,R2 GET RECV READ STATUS 
MOV (R2)+,(R1)4 >SET EXPD WORD #8 = RECV TEMP 
(R2), (RI) >SET EXPD BORD #9 = RECV TEMP 
1S #S2. INRDY, (R1) *SET EXP INPUT READY= 1 
BIC 2.0UTRDY SSET EXP OUTPUT READY= 0 
BIC #S2.D1H, (R1) “SET EXP DATA IN MISS = 0 
BIC 2. 1LW, (RI “SET EXP LAST WORD (ILW)=0 
If Input Ready NOT=1 then Print Error 


vord 
CLR RO HIGH RECV ADDRESS FOR CKMSG2 
LOM RECV ADDRESS FOR CKMSG2 


MOV —s- @T17BFR,RI 

MOV —s«@TITEXP.R2 PD ADDRESS 

mov —s«a#20., SNUMBER OF BYTES TO COMPARE 
JSR «PC, CRSG2 SEXPD EQUAL RECV? 

ecs 40—is«é088 “BR IF YES 

NEXT .ERRNO 

ERRHRD ERRNO.TI7ICMP.MSGSTAT ;REPORT ERROR 


___ {SSERHRD 








er ee 


i 
| 
EE 


Ee Ee 


C 10 








SEQ 119. 
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TEST 1: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
025530 000167 -WORD 119 
025532 031603 -WORD TI71CMP 
$e 012172 «WORD MSGSTAT 
4572 0255 90$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
025536 104406 yRaP CSCLPI 
; REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
; TSTFLAG =1 FOR INCREMENT TEST PATTERN 
: =2 FOR DECREMENT TEST PATTERN 
4579 ; =3 FOR TSTBLK TABLE PATTERN 
4580 025540 012737 000001 002260 MOV #1, TSTFLAG sTEST PATTERN FLAG 
4581 025546 95$: 
re Se seee 012737 000002 002254 MOV #2, COUNT sGET FIRST BYTE COUNT 
4583 025554 100$: 
4 Do a Write Subsystem WRITE NPR te set t direction out 
4585 025554 012700 000100 MOV @NP .OUT RO sSET TAPE DIRECTION OUT 
4586 025560 004737 032464 JSR PC, TI7SNPR :SE TUP T17PK2 FOR WRITE NPR 
4587 025564 012704 033010 MOV #T17PK2 RS :GET WRITE SUBSYSTEM COMMAND PACKET 
4588 025570 010465 177776 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
4589 025574 004737 017220 JSR PC .CHKTSSR WAIT FOR ny TO SET 
4590 025600 Bcs 105$ sBR IF CARRY SET (GOOD RETURN) 
oki > SAVE CONTENTS OF TSSR 
NEXT ..ERRNO 
102$: ERRDF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
ye al 


-WORD PKTSSR 





020064 JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
105$:  CKLOOP SLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 
: Do a Write Subsystem WRITE FIFO 
032564 JSR PC. TI7CLEXP sCLEAR EXPD BUFFER 
031114 STITUFSATALRI SEXPD WRITE FIFO DATA BUFFER 
002254 COUNT R2 STEST PATTERN SIZE 
000001 002260 #1, TSTFLAG “INCREMENT PATTERN THIS TIME THRU? 
115$ “BR IF NO 
RO S INCREMENT TEST PATTERN 
1108: RO, (R1)¢ “STORE INCREMENT TEST BYTE 
RO SSET NEXT PATTERN 
* DONE? 
°BR IF NO 
000002 002260 115$: : DECRENENT PATTERN THIS TIME THRU? 


sBR IF NO 

:DECREMER.T TEST PATTERN 
sSTORE DECREMENT TEST BYTE 
+ SET - ail PATTERN 


000377 





BR iF NO 
STSTBLK PATTERNS THIS TIME THRU? 


sBR 
#TSTBLK RO FLOAT 1°S/0°S ETC. TEST TABLE 
(ROD*, (RID sSTORE A TSTBLK BYTE 

R2 ; DONE? 


1308 —— - 


000005 002260 1258: 
0027 20 





EE - 


dD 10 


@ 120° 
Ns ae TUBO FRONT END PRT B MACRO M1200 29-MAR-83 15:32 PAGE 79-5 ™ ” 
TEST 1: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
























4621 5 798 013700 002254 —_ COUNT RO FIFO BYTE count | 
: y 
4622 025732 012701 031114 MOV aT17URDATA.R1 FIFO WRITE DATA ADDRESS | 
4623 025736 004737 032510 JSR T17uF IF : SETUP TI7PK2 FOR WRITE F 
4624 025742 012704 033010 MOV aticKe RS :GET WRITE SUBSYSTEM CONAN P ACKET 
4625 025746 010465 177775 MOV R4, TSDB(RS) 3SET THE PACKET ADDRESS TC EXECUTE 
4626 025752 004737 017220 JSR PC. CHKTSSR SWAIT FOR SSR TO SET 
4627 025756 103407 acs 150$ “BR IF CARRY SET (GOOD RETURN) 
8 025760 010001 MOV rO,R1 SSAVE CONTENTS OF TSSR 
025762 NEXT.ERRNO 
4630 025762 1462S:  ERRDF ERRNO,TI7SSSR,PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
025762 104455 TRAP CSERDF 
025764 000171 .WORD 121 
025766 031474 -WORD TI75SSR 
025770 011670 “WORD  PKTSSR 
4631 925772 004737 020064 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
4632 025776 150$:  CKLOOP “LOOP ON ERROR, IF FLAG SET 
025776 104406 TRAP —s- CSCLP 1 
4634 3 Do a Write Subeysten READ STATUS 
4635 026000 004737 032422 JSR PC,T17S sSETUP PACKET FOR READ STATUS | 
34 026004 012704 033010 MOV aTI7PK2,R4 SGET WRITE SUBSYSTEM COMMAND PACKE 
4637 026010 010465 177776 MOV R4, TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
4638 026014 004737 017220 JSR PC. CHKTSSR WAIT F OR SSR TO SET 
4639 026020 103407 BCs 160$ “BR IF CARRY SET (GOOD RETURN) 
4640 026022 010001 MOV RO,R1 ° SAVE CONTENTS OF TSSR 
4641 026024 NEXT. ERRNO 
4642 026026 157$: ERRDF ERRNO,TI73SSR.PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
026024 104455 TRAP CSERDF 
026026 000172 -WORD 12 
0260 031364 eWORD T173SSR 
32 011670 “WORD PKTSSR 
4643 026034 004737 020064 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4644 026040 160$:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
026040 104406 TRAP — CSCLP1 
4646 ; Set WORDS oe! oat Ri message buffer = to recv since not testing 
4647 026042 004737 032604 JSR PC, TI7SETE sSET WORDS 0-7 EXPD=RECV 
4648 012701 031012 MOV —s_-« @TI7EXSTA,RI 3GET EXPECTED READ STATUS 
012702 032702 MOV #T17BF STA,R2 *GET RECV READ STATUS 
012221 MOV (R2)+, (RID+ *SET EXPD WORD #8 = RECV TEMP 
011211 (R2),(R1) 3SE WORD #9 = RECV TEMP 
052711 000020 BIS #S2. INRDY, (R1) °SET EXP INPUT READY= 1 
052711 000040 BIS #S2.OUTRDY, (R1) °SET EXP OUTPUT READY= 1 
4654 72 042711 000200 Bic #S2.DIR, (R1) sSET EXP DATA IN MISS = 0 
76 042711 000100 BI #S2.1LW,(R1) gSET EXP LAST WORD (ILW)=0 
4656 ; If Input Ready NOT=1 then Print Err 
: If Output Ready NOT=1 or Data in Riss NOT=0 Then Print Error 
4658 026102 CLR HIGH RECV ADDRESS FOR CKMSG2 
104 MOV sTI7BER. RI “LOW RECV ADDRESS FOR CKMSG2 
4660 026110 MOV #TI7EXP.R2 sEXPD ADDRESS 
8114 MOV #20..83 [NUMBER OF BYTES TO COMPARE 
1 JSR PC. CKNSG2 EXPD EQUAL RECV? 
1 Bcs 176$ BR IF 
1 NEXT .ERRNO 
4 1628:  ERRHRD ERRNO, TI7SCAP.ASGSTAT sREPORT ERROR 
N2A12K 104454 _CSERHRD 


ee 
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SEQ 121 


~—— << 


—— 














































0261 000173 . 
026132 031761 “weed 
4666 oe6t — 170$:  CKLOOP LOOP ON ERROR, IF FLAG SET 
: : . L 
136 104606 TRAP) ss CSCLP1 
$ Do Write Subsystem READ FIFO 
002254 MOV sSET READ BYTE COUNT 
032544 PC, TI7REIF “SETUP T1I7PK2 FOR READ FIFO 
033010 #T17PK2 RG GET WRITE SUBSYSTEM COMMAND PACK 
177776 R4, TSDB(RS) :SET THE PACKET ADDRESS TO EXECUTE 
7 017220 PC. CHKTSSR “WAIT FOR SSR TO SET 
180$ SBR IF CARRY SET (GOOD RETURN) 
= - > SAVE CONTENTS OF TSSR 
172$: ERRDF ERRNO,TI76SSR.PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
TRAP SEROF 
.WORD 124 
“WORD T176SSR 
.WORD  PKTSSR 
7 020064 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
180$:  CKLOOP SLOOP ON ERROR, IF FLAG SET 
TRAP — CSCLP1 
; If Data read from FIFO NOT= to Data sent Then Print Error 
CLR RO sHIGH RE 
031114 MOV #TI7WFDATA,R2 :GET EXPEC DR 
032702 MOV #TI7BESTA,RI1 SGET RECEIVED ADDRESS FOR CKMSG2 
002254 MOV COUNT .R3 SNUMBER OF BYTES TO COMPARE 
011322 JSR PC, CKMSG2 sEXPD EQUAL 
ecs —s-—«2008 BR IF Y 
NEXT .ERRNO 
002254 192$: Mov COUNT ,RI1 sGET BYTE COUNT 
ERRHRD ERRNO,.TI7SCMP,FIFEXP § :REPORT ERROR 
TRAP CSERHRD 
.WORD 125 
“WORD T17S5CMP 
“WORD FIFEXP 
200$:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP  CSCLP1 
pred $ Do a Write ce Seeretee READ STATUS 
469% 032422 JSR sSETUP PACKET FOR READ STAT US 
4695 033010 MOV [GET WRITE SUBSYSTEM COMMAND PACKE 
469% i 177776 MOV °SET THE PACKET ADDRESS TO EXECUTE 
469 7? 017220 JSR “WAIT FOR SSR TO SET 
6698 BCs “BR IF CARRY SET (GOOD RETURN) 
6699 MOV RO, SSAVE CONTENTS OF TSSR 
é NEXT ERRNO 
701 ¢ 212$: ERRDF ERRNO,TI7T3SSR.PKISSR  :DEVICE FATAL SSR FAILED TO SET —_— 
a 1 
“WORD  1173SSR 
PKTSSR 
JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
2208: CKLOOP 





' 
oS 


SLOOP ON ERROR, IF FLAG SET 
as 86 





LL LLL 
a 
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4795 0 004737 032604 
| 4706 026316 012701 031012 
4707 0 1 032702 















0 
02¢ 2323: 
26 104456 
)2¢ 177 
vl. 0 5 
0 012172 
4726 C snsens 2408: 
4725 02¢ 
4726 ¢ 005237 002254 
4727 02¢ 3727 002254 000077 
4728 0; 101 
4729 03 000137 025554 
4730 04 00523 002260 250S: 
4731 ¢ 02 7 002260 000003 
4 f 101 
4733 ¢ 000137 025546 
: 26 2558: 


002170 
020136 


F 10 
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Set WORTS re g ky message buffer 

JSR PC 3SET 

MOV OTITEXSTAS Ri :GET EXPE 

MOV R sGET REC 

MOV 3sSET E 

MOV sSET E 

BIS sSET E 

BIC sSET EXP T READY= 

git 4 EXP DATA IN MISS = 0 
BIC 2tR1) =SET EXP LAST WORD (CILW)=0 
If Input Ready NOt=1 then Print Error 

If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
MOV #T17BFR,R1 +h RECY <1, ESS FOR CKMSG2 








XPD S 

NUMBER OF BYTES TC COMPARE 
:EXPD EQUAL RECV? 
sBR IF Y 





sREPORT ERROR 
TRAP alae 


12 
WORD TI74CMP 


WORD  MSGSTAT 
sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


:@@D 

sGET NEXT BYTE COUNT 

sDONE 0 TO 77 

3BR IF Y 

:D0 ANOTHER BYTE COUNT 

GET NEXT TEST PATTERN CODE 

er <  oe oTSTBLK PATTERNS? 

:D0 ANOTHER TEST PATTERN 

SIUTTTATA NNT wae SUGGS 











TRAP CSE SUS 
FATFLG sANY FATAL ERRORS ? 
BRANCH IF NOT 
PC ,CKDROP sTRY TO DROP THE UNIT 


SEQ 122, 


——— nee 


—a ann 


- a 
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4 
026474 104402 
68 


016650 


002170 
032640 
0103522 





Se Ge Ge @e Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


WHIee 
Pe 
co 


ee Sw 
ee 
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-SBTTL TEST 1: SUBTEST 4; FIFO Verify ILW Status 


+ 
TEST 1: SUBTEST 4; 
SUBTEST DESCRIPTION: 


This subtest verifies that reading the FIFO when it is 
empty causes the Last Word (ILW) status to assert. 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 

Do Write Subsystem READ 4g A with byte count equal to 1 

Do a Write Subsystem READ STATUS 

If Input Read y NOT=1 AM Print Error 

If Output Ready NOT=0 Then Print Error 

If Data In Miss NOT=0 Then Print Error 

If Last Word (ILW) NOT=1 Then Print Error 

BGNSUB ALLA ALA —— SUBTEST /////7/4447/ 
"TRAP CSBSUB 

Write to TSSR register to soft inicialize the controller 


JSR «PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
Bcs 108 QR IF SOFT INIT OKAY 


sSAVE CONTENTS OF TSSR 





MOV RO,R1 
ERRDF ERRNO,SFIERR,SF IASG SDEVICE FATAL DURING ag 





CSERDF 
.WORD 127 
“WORD SFIERR 
“WORD  SFIMSG 
Do a WRITE =e to setup a message aha 
CLEAR FATAL ERROR F 
OTITPACKET. Re GET THE ADDRESS OF COMMAND PACKET 
PC ,WRTCHR DO WRITE CHARACTERISTICS COMMAND 
50$ BR IF CARRY SET (GOOD RETURN) 
MOV —s_- RO, RI “SAVE CONTENTS OF TSSR 
NEXT ERRNO 








ERRDF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR vena TD! 





CSERDF 
. 128 
eWORD T17SSR 


WORD  PKTSSR 
sINC AND CHECK FOR — THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG = cecupt 








JSR PC .FATCHK 
CKLOOP 


Do Write Subsystem READ FIFO with ote £8 count equal ¢t 
BOY BYT 


ei, OUNT 
PC. TITRE LE strut t7PK2 FOR READ FIFO 
av i 3GET WRITE SUBSYSTEM COMMAND PACKET. 












eT 
R4.TSDB(RS) 





SEQ 125 





CZTUXAO TUBO FRONT E 


TEST 1: 
471 026574 
79 


ee 


4794 
4795 











Fu —o 





ce 
026604 
026606 
096612 
Os66t4 
ae 
026636 
026642 
026644 
ie 
54 
4808 56 
4809 026662 
026662 
026664 
670 
74 
702 
e 
710 
714 
720 

7 0267 
ze 
750 
730 
750 
732 
734 
756 
760 
026760 


dS 


oe 
g § 
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017220 


020064 


032422 
033010 
177776 
017220 


020064 


142$: 


150$: 


1628: 


172$: 











# 10 
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JSR PC. CHKTSSR WAIT FOR Sse TO SET 
BCs 156$ “BR IF CARRY SET (GOOD RETURN) 
0. Ri :SAVE CONTENTS OF TSSR 


OV 
NEXT..ERRNO 
ERRDF 





ERRNO, T176SSR,PKTSSR 





sDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
«WORD 129 
WORD T176SSR 


WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 
T CSCLP1 











JSR PC .FATCHK 
CKLOOP 


s SETUP PACKET FOR READ STATUS 
WRITE SUBSYS 


YSTEM COMMAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 


JSR PC .CHKTSSR sWAIT FOR _ TO SET 





BCS 1 BR IF CARRY SET (GOOD RETURN) 

MOV RO.R1 sSAVE CONTENTS OF TSSR 

NEXT ERRNO 

ERRDF ERRNO,T1735SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 1350 
~ WORD Mies 





WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG oe eset 


Set WORDS 0-7 of out message buffer = to recv since not — 
JSR pd Nog sSET WORDS O-7 EXPD=RECV 


JSR PC .FATCHK 
CKLOOP 










¥,¢(R1) 
#S2.0UTRDY,(R1) 
#S2.Dif, (Ri) 
#S2.1LW,(R1) 





sSET _— LAST WORD (CILW)=1 
Ready NOT=1 then Print Err 

WOT=s0 or Data in hiss NOT=0 Then Print Error 
. Word CILW) NOT=1 Then Print Error 

HIGH RECV ADDRESS FOR CKMSG2 


Input 
4 aut Re 





STI7BFR RI ‘LOM RECV ADDRESS FOR CKMSG2 
STI7EXP .R2 : sEXPD ADDRESS 
sNUMBER OF BYTES | TO COMPARE 
SEXPD EQUAL RECV? 
BCS i sBR IF YES 
NEXT ERRNO 
ERRHRD ERRNO,TI76CHP.MSGSTAT ;REPORT ERROR 
TRAP CSERHRD 
eWORD 131 
WORD T176CRP 
. MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
CSCLPI 


- oe 


SEQ 124 


a ee 


eel 
LL LD -_—_——_ 


i ee 





1 10 
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4833 ENDSUB s4440404070040447 END SUBTEST 77477477407 
110042: 
104403 CSESUB 
001403 002170 TST FATtLG ANY FATAL ERRORS ? 
BEQ 2608 ‘BRANCH IF nNoT 
are tests 020136 2608 JSR PC .CKDROP sTRY TO DROP THE UNIT 





i 


SEQ 125 


AS A TS 


al -_ — 


J 10 
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rr -SBTTL TEST 1: SUBTEST 5S: FIFO Verify Input Ready 
anes a 
: TEST 1: SUBTEST 5; 

4846 3 

re ot : SUBTEST DESCRIPTION: 

4849 s This subtest verifies that writing 64. bytes into the FIFO 

4850 : without ogee any out causes the Input Ready status to 

4851 : negate. The test then verfiies that writing a 65th byte 

485 : into the FIFO causes the Data In Miss status to assert. 

485 : Next it is verified that the artes nal 64 bytes can be read 

re tt ; out correctly and that the data has not been corrupted. 

4856 s TEST STEPS: 

4857 : 

4858 : BEGIN 

4859 : Write to TSSR to soft initialize 

4860 s Do a WRITE CHARACTERISTICS to setup a message buffer 

4861 : Do a Write Subsystem WRITE NPR to set tape direction out 

rer ; Do a Write Subsystem WRITE FIFO 64. bytes incrementing pattern 

486 3 Do a Write Subsystem READ STATUS 

4 B64 ; If t Ready NOT=0 # Then Print Error 

4865 : If . Then Print array 

4866 : If Data In Miss NOT=0 Then Print Erro 

4867 $ Do a Write Subsystem WRITE Aik 1 4g for a@ total of 65. written 

4868 : Do a W Se Subsystem READ STATUS 

4869 3 If t Ready WOT20 Then Print Error 

4870 : If Output Ready NOT=1 Then Print Error 

4871 If Data In Riss NOT=1 Then Print Error 

re 1h : Do Write Subsystem READ FIFO 

48 § If Dat rom FIFO NOT= to Data sent Then Print Error 

4874 3 Do STATUS 

4875 ; If 

4876 3 If Then Print Error 

4877 $ if Then Print Error 

pe th : END 

4880 pth BGNSUB HALAL oe ALAA 

saat 026776 104402 TRAP C$8SUB 

reo 02 ie Write to TSSR register to soft initialize the controller 

og 016630 JSR PC SOF INIT sWRITE TO TSSR TO = INITIALIZE 

4885 027004 cs 10$ BR IF SOFT INIT OKAY 

oaes ogre MOV RO,R1 sSAVE CONTENTS OF TSSR 

488 10 ERRDF ERRNO, SFIERR,SFIASG SDEVICE FATAL DURING INIT 

02701 TRAP CSERDF 

e 131 
i SFIERR 
‘ SF IMSG 

4 B88 : Do a WRITE lcci to a # har FAtALt buffer 

4889 027020 005037 002170 10s: CLR A EAR FAT ERROR FLAG 

4890 012704 032640 MOY STITPACKET,RG THE ADDRE OF COMMAND PACKET 

4891 A Fh 010322 PC ,WRICHR :D0 Rite a ARACTERISTICS — 





508 





SEQ 126 


' 
— — ES A A | 


el 
———- ————— ee = 


TEST 


4893 027036 
4894 02 
4895 pth oe 


4909 
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010001 
104455 


000204 
031263 
011670 
004737 


104406 





PRT 8 


020064 


020064 
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002254 





200 


42$: 


50$: 


100$: 


102$: 


110$: 


150$: 
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T. 
ERRDF 


JSR 
CKLOOP 





JSR 
MOV 





MOV 
JSR 
BCS 





NEXT .ER 
ERRDF 
JSR 
CKLOOP 


i? Write Subsystem WRITE FIFO 





JSR 
BCS 
MOV 
NEXT .ER 
ERRDF 


JSR 
CKLOOP 





K 10 
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RO,R1 
ERRNO, T17SSR,PKTSSR 


PC .FATCHK 


Do a Write Subsystem WRITE NPR to set ¢t 
MOV a@nP RO 





RNO 
ERRNO, T174SSR,PKTSSR 


PC .FATCHK 


#T17UFDATA,RI 


R 
RO. (RI)+ 
RO 





SCHKTSSR 


PC 
150$ 
R1 






RNO- 
ERRNO, T175SSR,PKTSSR 


PC ,FATCHK 


-WORD PK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 

132 

TI7SSR 
TSSR 











TRAP 


direction out 

sS€T T DIRECTION OUT 

°SE TUP T17PK2 FOR WRITE NPR 

GET pa Ny SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

sBR IF CARRY SET (GOOD RETURN) 

3 SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED 10 SET 


CSCLP1 








CSERDF 
133 


INC AND CHECK FOR MORE THAN 25 ERRORS 
sLUOP ON ERROR, IF FLAG 1 — 


64. es incrementing pattern 
sWRIT YT 

EXPD URITE FIFO DATA BUFFER 

; ERN SIZE 


INCREMENT TEST PATTERN 
sSTORE INCREMENT TEST BYTE 
3SET NEXT PATTERN 
; DONE? 


+7 IF NO 
sFIFO BYTE COUNT 
sFIFO WRITE DATA ADDRESS 
sSETUP T17PK2 FOR WRITE FIFO 
sGET WRITE SUBSYSTEM COMMAND PACKET 
SET THE PACKET ADDRESS TO EXECUTE 
WAIT FOR a TO SET 

IF CARRY SET (GOOD RETURN) 


:BR 

SAVE CONTENTS OF TSSR 

‘DEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
«WORD 
eWORD T175SSR 
WORD PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 


LOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


9% ———s—“‘(C#CE:C Cio 2 Write Subsystem READ STATUS 


SEQ 127 


ee ee ere + ere ee ee 


ed 
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TEST 1: 





000210 
031761 


104406 


104455 
000211 
031474 


PRT B r0 
FIFO VERIFY INPUT READY 


020064 


032604 
031012 
032702 
000020 
000040 
000200 
032662 
030772 


000024 
0113522 


—————— all, 


MAC 


157$: 


160$: 


172$: 


A+ a | 
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SEQ 128. 














If Input Ready NOT=0 Then Print Error 

If Output Ready NOT=1 Then Print Error 

If ey oe Miss NOT=0 Then Print Error 

JSR ¢ .TI7SRD sSETUP PACKET FOR READ ne 

MOV Ti PK2,R4 GET WRITE SUBSYSTEM COMMAND PACKET 

BOY R4, TSDB(RS) SET PACKET ADDRESS TO EXECUTE 

JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

BCS 160$ “BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT. ERRNO 

ERRDF §ERRNO,1T1735SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD MLE 

JSR PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP sLOOP ON ERROR, IF FLAG SET 


TRAP CSCLPI 
recv since not testing 


Set WORDS 0-7 of ouae message buffer = to 
T WORDS O-7 EXPD=RECV 


JSR PC, TI7SET 
MOV 


@TIZEXSTA,RI sGET EXPECTED READ STATUS 
#T17BF STA,R2 GET RECV READ STATUS 
C(R2)+,(R1)+ 7SET EXPD WORD #8 = RECV TEMP 
(R1) sSET EXPD WORD #9 = RECV TEMP 
#S2.INRDY,(R1) sSET EXP INPUT READY= 0 


#S2.01M,(R1) 
RO 





STI7BER,RI SLOW RECV ADDRESS FOR CKMSG2 
#TITEXP,R2 SEXPD ADDRESS 

#20. ,R SNUMBER OF BYTES, TO COMPARE 
PC, CKMSG2 SEXPD EQUAL RECV 

1708 BR IF YES 








BCS 
NEXT .ERRNO 
ERRHRD ERRNO,T175CAP .ASGSTAT 





sREPORT ERROR 
TRAP CSERHRD 
WORD 136 
WORD T1735CHP 
WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


ey Write Subsystem WRITE FIFO 1 a eo for te a of 65. written 


F 

MOV aTi7MEDATA,RI FIO ORITE CONTA ADDRESS 

JSR T17UF LF *SETUP TI7PK2 FOR WRITE F 

MOV Ori yPK2 6 <GET WRITE SUBSYSTEM LORRAND ACKET 
MOV +4 TSDB(RS) SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR WAIT FOR SSR TO SET 

acs 180$ “BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 * SAVE CONTENTS OF TSSR 

NEXT ERRNO 

ERRDF ERRWO,T175SSR,PKTSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
eWORD 137 


A a OE - 


LE LS re 


Am 10 


CZTUXAO TUSO FRONT END PRT B MACRO M1200 29-MAR-85 15:32 PAGE 81-3 
TEST 1: SUBTEST 5: IFO. VERIFY INPUT READY 


4979 OE 304957 020064 JSR PC. FATCHK INC AND CHECK FOR MORE Van 25 ERRORS 
4980 027432 180$: CKLOOP —- SLOOP ON ERROR, IF FLAG SET po 
L 


SEQ 129 


Do a Write Subsystem READ STATUS 
I noT=0 


: If Input Ready Then Print Error 
s If Output Ready NOT=1 Then Print Error 
: If Data In Miss NOT=1 Then Print Error 
7 032422 JSR PC.TI7SRD + ie PACKET FOR READ STATUS 
ad 10 MOV #TI7PK2,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
177776 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
017220 JSR PC .CHKTSSR WAIT FOR y TO SET 
BCS 190$ “BR IF CARRY SET (GOOD RETURN) 


RO.RI1 3 SAVE CONTENTS OF TSSR 


NEXT .ERRNO 
187$: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR ieee ad 


CSERDF 

WORD 1 

WORD T173SSR 
PKTSSR 











027466 
4994 027470 004737 020064 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
4995 027474 190$:  CKLOOP SLOOP ON ERROR, IF FLAG SET 
027474 104406 TRAP  CSCLP1 
4996 ; Set WORDS 0-7 of y message buffer = to recv since not testing 
4997 027476 004737 032604 JSR PC, TITSETEX sSET WORDS 0-7 EXPD=RECV 
4998 027502 012701 031012 MOV #TIZEXSTA,RI sGET EXPECTED READ STATUS 
012702 032702 MOV °GET RECV READ STATUS 
012221 MOV °SET EXPD WORD #8 = RECV TEMP 
011211 MOV SSET EXPD WORD #9 = RECV TEMP 
042711 000020 BIC SSET EXP INPUT READY= 0 
052711 000040 Is SSET EXP OUTPUT READY= 1 
52718 000200 BIS #S2.D1M,(R1) °SET EXP DATA IN MISS = 
005000 CLR RO “HIGH RECV ADDRESS FOR CKMSG2 
012701 032662 MOV #TI7BFR,RI SLOW RECV ADDRESS FOR CKMSG2 
012702 030772 MOV #TITEXPR2 SEXPD ADDRESS 
012703 00024 MOV #20.,.R3 ;NUMBER OF BYTES TO COMPARE 
004737 011322 JSR PC ,CKMSG2 SEXPD EQUAL RECV? 
103404 acs 200$ BR IF YES 
NEXT. ERRNO 
192$: ERRHRD ERRNO,TI73CMP,MSGSTAT :REPORT ERROR 
104456 TRAP  CSERHRD 
900215 .WORD 139 
031761 “WORD T173CMP 
012172 “WORD MSGSTAT 
200$:  CKLOOP SLOOP ON ERROR, IF FLAG SET 
104406 TRAP  CSCLP1 
: Do Write Subsystem READ FIFO 
70 013700 002254 MOV C SET READ Byte COUNT 
004737 032544 PC, TITRE ILE “SETUP TI7PK2 FOR READ FIFO 
012704 033010 #Ti7PK2 RS °GET alte SUBSYSTEM COMMAND PACKET 
010465 177776 R4, TSOB(RS) “SET THE PACKET ADDRESS TO EXECUTE 
004737 017220 PC.CHKTSSR “WAIT FOR SSR TO SET 
103407 220$ “BR IF CARRY SET (GOOD RETURN) 
010001 MOV RO,RI * SAVE CONTENTS OF TSSR 
NEXT ERRNO 





2128: ERRNO, T176SSR,PKISSR sf ALS R FAILED TC ee ee 





TEST 


502% 027680 


027634 
26 














CZTUXAO TUBO FRONT END 
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013701 
104456 
000215 
032150 
012012 
104406 


PRT B 


7 020064 


031114 
032702 
002254 


7 011322 


002254 


7? 032422 


0335010 
177776 


? 017220 
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220S: 


232$: 


240$: 


2528: 


N 10 
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TRAP 

~ WORD 

eWORD T176SSR 

. PKTSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 





CSERDF 
140 








JSR PC ,tATCHK 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 

If Data read from FIFO NOT= to Data sent Then Print Error 

CLR R sHIGH RECV ADDRESS FOR CKMSG2 

MOV #T17WFDATA,R2 GET EXPECTED ADDRESS FOR CKMSG2 

MOV #T17BFSTA,R1 sGET RECEIVED ey: FOR CKMSG2 

MOV TRS SNUMBER OF 7 YTES TO COMPARE 

JSR PC, CKMSG2 EXPD EQUAL R 

Bcs 2408 sBR IF YES 

NEXT .ERRNO 

MOV COUNT ,R1 :GET BYTE COUNT 

ERRHRD ERRNO,1175CMP,FIFEXP REPORT ERROR 
TRAP CSERHRD 
eWORD 141 
eWORD 1175CMP 
WORD FIFEXP 


CKLOOP SLOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 


Then Print Error 
Then Print Error 


JSR *SETUP PACKET FOR READ STATUS 

MOVs A7PK2.R4 “GET WRITE SUBSYSTEM COMMAND PACKET 

MOV _—sR&,, TSDBCRS) “SET THE PACKET ADDRESS TO EXECUTE 

JSR —s«w PC. CHKTSSR “WAIT FOR SSR TO SET 

BCS 260$ “BR IF CARRY SET (GOOD RETURN) 

MOV _—_- RO, R1 : SAVE CONTENTS OF TSSR 

NEXT ERRNO 

ERRDF  ERRNO,T173SSR,PKTSSR § :DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 142 
“WORD T173SSR 
"WORD  PKTSSR 

JSR —s PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP “LOOP ON ERROR, IF FLAG SET 


TRAP CSCLP1 
Set WORDS 0-7 of Ri message we = oe face since not testing 











JSR PC, TI7SET : WORDS 0-7 EXPD=RECV 
MOV #TIZEXSTA,R1 GET EXPECTED READ STATUS 
MOV #T17BFSTA,R2 :GET RECV READ STATUS 

MOV (R2)+,(R1)+ SET EXPD 

MOV (R2), (RI) : 

BIS pp : 

BIC eOUTRDY . (R1) SET EXP OUTPUT READY= 0 
BIS #32-DIM. (Ri) :SET EXP DATA IN MISS = 1 
CLR RO HIGH RECV ADDRESS FOR CKMSG2 
MOV #T17BFR.R1 LOW RECV ADDRESS FOR CKMSG2 
MOV #TI7EXP .R2 sEXPD ADDRESS 

MOV #20 RS iia RE 





a 








CZTUXAO TUBO FRONT E 





5066 030014 rr HEY 011322 
103404 





5067 0 
5068 0 
5069 0 
0 104456 
030024 000217 
0 032045 
0 012172 
5070 0 
" 0 104406 
5072 pt sat a 
030034 104403 
5 002170 


4 030036 005737 
Se HE SF co 
307 
5079 
5080 
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272: 


280S: 


300$: 





B11 
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JSR PC, CKMSG2 
BCS 280$ 
NEXT. ERRNO 
ERRHRD E®RNO,T174CMP.MSGSTAT 





sEXPD EQUAL RECV? 
sBR IF YES 








sREPORT ERROR 





TRAP CSERHRD 
WORD 


. 14 
TI74CMP 
MSGSTAT 








e WORD 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP? 
ENDSUB S444GTAA1111744 END SUBTEST 4777777777 

L10043: 
CSESuUB 

TST FATFLG sANY FATAL ERRORS ? 
BEQ 300$ BRANCH 


If NOT 
JSR PC ,CKDROP TRY TO DROP THE UNIT 


SEG 151 


TEST 


CZTUXAO TUBO FRONT END 
1: SUBTEST 6; FIFO 


5082 
5083 
5084 
5085 
5086 
5087 


eSeE EEL 


3333 





S28 


PUPPET 
ee 


SOBNANRUN—SSBUSAF 


VERFaw~ 








$5 


#56 


Stee 
a 





72 
76 
02 
06 





3 


T 
vE 


8 
RIFY 


016630 


7? 002170 


032640 
010322 
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ST 


-SBTTL TEST 1: SUBTEST 6; FIFO Verify Reset FIFO Test 


ve 
TEST 1: SUBTEST 6; 
SUBTEST DESCRIPTION: 


This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 
the FIFO to correct intial status. The following steps 
are performed: 
1. Reset an already initialized FIFO and check for 
proper status. 
2. Write a varying number of bytes (1-65.) into the 
FIFO and verify that after each block of bytes is 
— the FIFO can be be reset to it's initial 
state. 


TEST STEPS: 
BEGIN 


WRITE CHARACTERISTICS to setup a accsene buffer 
Write Subsystem Write Misc to Reset FIFO 

Write Subsystem READ STATUS 

Ll Tape Status 2 (ICER,IFMK,IHER) flip-flop 

signals NOT=0 Then Print Error 

Write Subsystem WRITE NPR to set tape direction out 


ite to TSSR to soft initialize 
i 


we FOR BYTE COUNT 1 TO 65. 


a Write Subsystem WRITE FIFO with the current byte count 
a Write Subsystem Write Misc to Reset FIFO 
a Write Subsystem READ STATUS 

all Tape Status 2 CICER,IFMK,IHER) flip-flop 

signals NOT=0 Then Print Error 





BGNSUB SAUNA ee LL 


"TRAP = CS$BSUB 
Write to TSSR register to soft initialize the controller 


JSR —s PC, SOF INIT SWRITE TO TSSR TO SOFT INITIALIZE 
acs 108 “BR IF SOFT INIT OKAY 

>SAVE CONTENTS OF TSSR 
“DEVICE FATAL DURING INIT 


MOV ROR 
ERRDF ERRNO, SFIERR,SFIASG 









CSERDF 

-WORD 145 
-WORD SFIERR 
WORD SFIASG 

Do a WRITE CHARACTERISTICS to ar: & wing buf fer 

CLR FATFLG sCLEAR FATAL ERROR FLAG 

MOV STI7PACKET RS sGET THE ADDRESS OF COMMAND PACKET 

= PC ,.WRICHR D0 WRITE CHARACTERISTICS COMMAND 


SEQ 132 


A OE - 
nee SE ES LE ALLO LO 


—< ae eee eee 


TEST 


CZTUXAO TUBO FRONT END 
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51335 030110 
51 2 


20 01 
5136 030122 00475 


5137 030126 
030126 


SELERFUNLSS 
oo 
ss 
on 


WAV VAsVIwVuwmIuvwuvT7w ww 
BSSESEES 


ed cad oe ert oe ant and ad cod owt et 2 


Ww 
OOD L% 


an ae att ced and rect ed contd oa we eed med an 


SASVISSELESES T= 


Pett 





: 
: 





2 104455 
000 


010001 


Se S25 

at ot 

me PPD uous 
ss ow 
at ead a |} 


e 
“an 


ooo 
wed wr act 
eoreth cols 


== 
ed ath sel mel err 


as 


cya ei 


ooogo 
at & =e 
MIPIM 
_ 


020064 


032442 
033010 


177776 
017220 


020064 


032422 
033010 
177776 
017220 
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50S: 


62$: 


70$: 


dD 11 
29-MAR-83 15:52 PAGE 52-1 





MOV RO,R1 
NEXT .ERRNO 
ERRDF ERRNO,T17SSR,PKTSSR 


JSR PC ,FATCHK 
CKLOOP 


Do a Write e suoareiee Write Misc 
JSR F 


JSR PC, CHKTSSR 
708 


MOV ° 
NEXT .ERRNO 
ERRDF ERRNO,1172SSR,PKTSSR 


JSR PC ,FATCHK 
CKLOOP 












PC CHKTSSR 
808 

MOVs ROR 

NEXT ERRNO 

ERRDF ERRNO,T173SSR,PKTSSR 
PC FATCHK 


C,TITSETEXP 
STI7EXSTA,RI 
@TITBESTA,R2 
(R2), (R1) 






2(R2) .2¢R1) 


#T17BFR,R1 
ory rene Ae 


#2t 













SAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 

. 144 

«WORD TI7SSR 
PKTSSR 


«WORD 
+ INC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 


to Reset FIFO 

sSETUP PKT FOR WRITE MISC RESET FIFO 
GET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE oY aT TO EXECUTE 
sWAIT FOR oy 0 SET 

sBR IF CAR SET (GOOD RETURN) 

3 SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP t 

~ WORD 

WORD 


145 
RL so 


-WORD PKTSSR 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
LOOP ON ERROR, IF FLAG = 

TRAP CSCLP1 





sSETUP PACKET FOR READ STATUS 

7GET WRITE SUBSYSTEM COMMAND PACKET 

sSET THE “oy Se TO EXECUTE 
WAIT FOR ay 0 SET 

BR IF CAR Y SET (GOOD RETURN) 

3; SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED 10 SET 


TRAP CSERDF 
- WORD 46 
eWORD T175SSR 
- WORD SSR 


PKT 
INC AND CHECK FOR MORE THAN 25 ERRORS 
sLOOP ON ERROR, IF FLAG SET 


TRAP _CSCLP1 
sSET WORDS 0-7 tgs (NOT TESTING) 
GET EXPECTED READ STATUS 
;GET ¥ READ 


STATUS 
WORD #8 = RECV TEMP 





SET EXPD IHER 
SSET EXPD WORD #9 = RECV (NOT TESTING) 
;HIGH RECV ADDRESS FOR CKMSG2 

sLOW RECV ADDRESS FOR CKMSG2 








SEQ 135 


mee ee 


ee 
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Q1 
TA ae TUSO FRONT END PRT B MACRO M1200 ales 
TEST 1: SUBTEST 6; FIFO VERIFY RESET FIFO TEST 






























$175 030312 004737 011322 JSR PC,CKMSG2 SEXPD EQUAL RECV? 
$176 030 16 103404 BCS 100$ BR IF YES 
5177 0 NEXT.ERRNO 
$178 030 92$: ERRHRD E®RNO,TI77CMP.MSGSTAT  ;:REPORT ERROR 
0 104456 TRAP CSERMRD 
030322 000223 .WORD 14 
030326 032312 7 T177CMP 
0 012172 WORD 
$179 0303 100$:  CKLOOP [LOOP ON ERROR, IF FLAG SET 
$190 030330 104406 TRAP CSCLP1 
5181 ; Do a Write Subsystem WRITE NPR to set t direction out 
5182 030332 012700 000100 MOV anP SET 
51 030 004737 032464 JSR : 11 
5184 030342 012704 033010 MOV sGET WRITE SUBSYSTEM C PACKET 
$185 030346 010465 177776 MOV SET THE PACKET ADDRESS TO EXECUTE 
5186 030352 004737 017220 JSR PC.CHKTSSR WAIT FOR SSR TO SET 
5187 030356 103407 acs 120$ “BR IF CARRY SET (GOOD RETURN) 
5188 030360 010001 RO,R1 sSAVE CONTENTS OF TSSR 
5189 0 NEXT ERRNO 
5190 0 112$:  ERRDF ERRNO,TI74SSR.PKTSSR  ;DEVICE FATAL SSR FAILED TO SET 
0 104455 TRAP  —- CSERDF 
0 oreess eWORD 148 
0 031431 <WORD T174SSR 
6 011670 “WORD  PKTSSR 
$191 72 004737 020064 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
5192 030376 120$:  CKLOOP SLUOP ON ERROR, IF FLAG SEY 
ee 030376 104406 TRAP — CSCLP1 
5194 3 Setup tngrogens rae gaia in FIFO data buffer 
5195 930400 012701 031012 MOV @TITEXSTA sEXPD WRITE FIFO DATA BUFFER 
5196 012702 000100 #64. ,R2 STEST PATTERN SIZE 
519 i 000 RO SINCREMENT TEST PATTERN 
5198 12 110021 1308: RO, (RI)¢ sSTORE INCREMENT TEST BYTE 
51 14 005 RO SSET_NEXT PATTERN 
16 po: ae 
1 030420 003374 130$ “BR IF NO 





; REPEAT FOR BYTE COUNT 1 TO 65. 
OV #1, 





030422 012737 000001 002254 sGET FIRST BYTE COUNT 











5 : Do a Write Subsystem WRITE FIFO with the current byte count 
1508: sREPEAT LOOP LABEL 
rs 4 BOY T,RO sFIFO BYTE C 
5 MOV STITERSTA.RI sFIFO WRITE 
5209 PC TI7WFIF sSETUP T1 









: T 

sGET WRITE SUBSYSTEM C KET 
od THE PACKET ADDRESS TO EXECUTE 
JSR sWAIT FOR SSR TO SET 

BCS sBR IF CARRY SET (GOOD RETURN) 

ROV R1 ; SAVE CONTENTS OF TSSR 
NEXT ERRNO 
ERRDF 


ERRNO, T175SSR,PKTSSR sDEVICE FATAL SSR FAELED TS Set 


~& 





43700 

12701 

7 
12 

O4787 

7? 

7 





LAF ALA 


hth eth thet ttt 
Awl win... o 


a ah ah oa’ 


1528: 








CSEROF 
WORD 
«WORD T175SSR 
WORD PKTSSR 





' 
; 
me es Re 
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5218 030500 160$: 
030500 104406 
; 19 
5221 0 004737 032442 ; 
5 01 033010 
5 0104665 177776 
; oes ; 017220 
; 010001 
3 0 162$: 
. 104455 
0 031 
: 011 
004737 020064 
0 : 1708: 
030542 104406 
1778: 
180$: 
1928: 
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CKLOOP sLOOP ON ERROR, IF FLAG st 


CSCLP1 
Do a Write Subsystem Write Misc 
JSR PC, r.i7RSFIF 

atiz7PK 


oR4 
R4, TSDB(RS) 


to Reset FIFO 

sSETUP PKT FOR WRITE MISC RESET FIFO 
GET WRITE SUBSYSTEM COMMAND PACKET 
:SET THE PACKET our TO EXECUTE 


















PC.CHKTSSR [WAIT FOR SSR TO 
170$ [BR IF CARRY SET (GOOD RETURN) 
RO.RI SSAVE CONTENTS OF TSSR 











ERRNO, 1172SSR,.PKTSSR sDEVICE FATAL SSR FAILED TO SET 

TRAP CSERDF 
° 150 
-WORD 1172SSR 
-WORD PKTSSR 

JSR PC. FATCHK + INC AND CHECK FOR MORE THAN 25 ERRORS 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLPI 

Do a Write Subsystem READ STATUS 

If all Tape Status 2 (ICER, IFMK,IHER) flip-flop 

ignais NOT20 Then Print Error 
JSR PC, TI7SRD sete PACKET FOR READ as al 
MOV #T17PK2,RS :GET WRITE SUBSYSTEM 





oR4 COMMAND PACKET 
R4, TSOB(RS) sSET THE PACKET ADDRESS TO EXECUTE 


PC CHKTSSR 
180$ CARR 

RO,R1 “SAVE CONTENTS OF TSSR 

ERRNO, TI73SSR.PKTSSR  ;DEVICE FATAL SSR FAILED TO. SET 









oE 
ERRDF 











CSERDF 
“WORD T173SSR 
“WORD  PKTSSR 
PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
SLOOP ON ERROR, IF FLAG SET 
TRAP —«- CSCLP1 
PC, TITSETEXP sSET WORDS 0-7 EXPDERECY (NOT TESTING) 
i :GET EXPECTED READ ATUS 


GET RECV READ ATUS 
SET EXPD WORD WORD #8 = RECV TEMP 
sSET EXPD ICER =0 
sSET EXPD IFMK =0 
sSET EXPD IHER =0 

sSET EXPD WORD #9 = RECV (NOT TESTING) 

FOR CKMSG2 


HIGH RECV ADDRESS 
;LOW RECV ADDRESS FOR CKMSG2 





#S1. 1HER, (AT) 
2(R2) .2¢R1) 












STI7BFR RI 








#TITEXP RZ SEXPD ADDRESS 
#20., SNUMBER OF BYTES TO COMPARE 
JSR «PC, CRSG2 SEXPD EQUAL RECV? 
acs 200$ BR IF YES 
NEXT ERRNO 
ERRHRD ERRNO,TI77CMP.MSGSTAT :REPORT ERROR 





SEQ 155 


eas ee 


— A 












6 11 
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Test : SUBTEST 6; FIFO VERIFY RESET FIFO TEST 
030700 012172 -WORD MSGSTAT 
5261 330 200$: CKLOOP LOOP ON ERROR, IF FLAG SET 
5 330703 104406 TRAP CSCLPI 
5 2508: 
5 FORCEXIT 2608 
5 005237 002254 Inc :GET NEXT BYTE COUNT 
5 0 7 002254 000101 CMP sDONE ALL BYTES? 
5 101002 BHI sBR IF YES 
5 000137 030430 JMP 200 ANOTHER BYTE COUNT 
; 260$: 
5 030734 SAAAAITTT4414d END SUBTEST //77//747477 
Seorte L10044: 
rn 0 104403 TRAP CSESUB 
H 74 030736 002170 FATFLG sANY FATAL ERRORS ? 
5275 0 3008 s BRANCH 
5 A 0 020136 PC .CKDROP sTRY TO DROP THE UNIT 
% As 8 017340 300$: — 3b0 — 
; 79 0 024046 T17L00P LOOP UNTIL ITERATIONS DONE 
5281 4 :@a@a TEMPORARY END OF TEST 
3 0307 EXIT TST sLeLssddddd ERUT TEST SAAS SATTT 
0307 104432 TRAP CSEXIT 
030764 002144 WORD 110036-. 
H+ 
§285 


SEC 136 


LLL OE 


— 


<r ee ee 7 


H 11 
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TEST 1: SUBTEST 6; FIFO VERIFY RESET FIFO TEST 


SEQ 137 




















5287 :¢ 

Ht sLOCAL STORAGE FOR THIS TEST 

5 te 

sSa0 

5 030766 T17MSK: sMASK OF UNTESTED BITS x es STATUS BYTES 
3 030766 377 BYTE “*C<000> ‘BY TOMAS —— 

5295 030767 037 “BYTE *C<340> BYTE 1 MASK (PARERR, IRESV2, IRESV1) 

360 BYTE *C€<017> aye ; (TIMER A, TIMER B, UNDEF INED<1: :0>) 

; 030771 000 BYTE 0 :MAKE IT EVEN 

; 030772 900000 TI7EXP: —- einer THE DATA BUFFER 

3302 S3or % 900000 50008 WORD p sDATA FIELD — 

$308 031000 000000 “WORD 0 XSTO 

5 031002 000000 -WORD 0 sxSTi 

5 garone 000000 -WORD 0 sxST2 

5 031006 000000 WORD 0 xST3 

5307 031010 000000 eWORD 0 xSTé (ALWAYS PRESENT FOR WRITE SUB.) 

308 031012 TI7EXSTA: .BLKB 66. sEXPECTED READ STATUS AND WRITE FIFO DATA 
rt 44 031114 TI7EXEND: SEND EXPECTED DATA BUFFER 

$3 031114 TI7WFDATA: .BLKB 66. sWRITE FIFO EXPECTED DATA BUFFER 
a8 3+ 
He SLOCAL TEXT MESSAGES FOR TEST 
5316 : 
HAA 031216 106 111 106 TSTI7ID: eASCIZ ‘FIFO Exerciser’ 
§319 031235 122 105 127 TI7RWN: .ASCIZ ‘REWIND Command Failed’ 
; : . ; 3 et ise ata Ui 7esse aete "WRITE CHARACTERISTICS Failed’ 

Se 

5 & ote 127 122 111 C1z : 

5 031431 127 122 111 TI74SSR: ASCIZ 
5 031474 127 122 111 TI7S5SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write F l 

aH 8 1540 127 122 111 TI76SSR:.ASC 12 ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
5 1603 106 111 106 71 ClIZ ‘FIFO Status in WORD #9 Incorrect after Initialize’ 

sag 0 4 122 145 141 C1Z ‘Read FIFO Data not equal to Write FIFO . Data is “ , WORD #8° 

5 1761 106 111 106 C1Z ‘FIFO Status (In WORD #9) Incorrect after WRITE FIFO 

3365 5 106 111 106 12 ‘FIFO Status (In WORD #9) Incorrect after READ FIFO’ 

032130 122 145 141 1Z2 ‘Read FIFO Data not equal to Write FIFO Data’ ; 

5331 0 ie 106 111 106 12 “FIFO Status (In WORD #9) Incorrect after READ FIFO from an Empty FIFO 
5 032312 106 111 106 CASEI "FIFO Status (In WORD #9) Incorrect after RESET FIFO’ 
; 5 3¢ 
3 : CLEAR MESSAGE BUFFER 
$338 0 TI7CLRBUF : 
5 0 SAVREG « SAVE RI-R5S UNTIL NEXT RETURN 

ue 032662 #T17BFR,R1 °GET MESSAGE BUFFER ADDRESS 

1 000120 ROV 11 7BEND-117BFR. R2 °SIZE OF MESSAGE BUFFER IN BYTES 
ae 0 108: CLRB (Ri : CLEAR A BYTE 
34 0 D C R Paui... eee 

















TEST 1: 
5345 
5346 
$349 
50 032422 
333 622 


O3348e 
436 


442 
ss Sei 
5364 0324 
5365 032462 
5366 
5367 
5368 
5369 
5370 
5371 
537 
ie 
5375 032464 
5376 0 
5377 032470 
sere 032674 
30 Si 
saat 032506 
me 
5384 
5385 
5 
* 

5388 

$390 032510 
mr ge 
mf 


— 








CZTUXAO TUBO FRONT END PRT B 
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004737 032376 
700 033020 
720 000005 


032376 
033020 
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032420 000207 


111 
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BGT 108 
RTS PC 


s¢ 
: SETUP T17PK2 PACKtT FOR READ STATUS 


T17SRD: 

sCLEAR MESSAGE BUFFER 

SWRITE SUBSYSTEM DATA BUFFER 

* STORE READ STATUS COMMAND IN BSELO 
Bes BSEL1 


PC, TI7CLRBUF 
ati7Dt2, 

oPu. RDSTATUS, (RO) 

(RO) 








ROVE 
CLRB 
RTS 






3* 

: SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 

TI7RSF IF: 
JSR 





PC ks ad sCLEAR MESSAGE BUFFER 
aT RO sWRITE SUBSYSTEM DATA BUFFER 
#Pu. UAISC. (RO)+ sSTORE WRITE MISCELLANEOUS IN BSELO 





#AS.RSFIFIMS.RSTAP,(RO) ;STORE BSEL1 CLEAR FIFO CODES 
PC s RETURN 


SETUP TI7PK2 PACKET FOR WRITE NPR 


"RO CONTAINS BSEL1 NPR DATA 
SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 





sCLEAR MESSAGE BUFFER 


“§SR PC. TI7CLABUF 
MOV AF SWRITE SUBSYSTEM DATA BUFFER 


ra hg T2,R1 











MOVE #PW.UNPR,(R1)+ sSTORE WRITE NPR IN BSELO 
BIS RO DON'T WRITE WRONG PARITY 
Ove RO, (R1) sSTORE NPR DATA IN BSEL1 
RTS PC ;RETURN 





: Setup TI7PK2 PACKET FOR WRITE FIFO 


R1 CONTAINS DATA PATTERN BLOCK ADDRESS 


: INPUT: 
RO CONTAINS BYTE COUNT 
T17UF IF: 

















SAVREG SSAVE RIRS UNTIL NEXT RETURN 
JSR PC, TI7CLRBUF “CLEAR MESSAGE ER 
ROV #Ti70T2,R2 WRITE SuBSYSTER DATA BUFFER 
nove wPu WE LFO,(R2)¢ : STORE FO IN BSELO 
+ 
CLR (Rd)+ “CLEAR SEL2 (UNUSED) 
10$: #OVB (R1)+,(R2)4 “STORE DATA PATTERN BYTE 
DEC RO “DONE ALL BYTES? 
Bs 10s “BR IF NO 


SEG 158 


- om — awe 


EE 





























5401 


5408 





SuSE 
~o 
E 


et ed ed ced cd cel ct al cl eld 
BOrNOVFWN—O 










PPITPAIIIITA TTT 


FEFF 





: 
é 






+> 

= 
oococo 
NOLO 


032640 
0 


33: 


= 


34 
3 
5435 
Hs 
5440 
5441 
ete 
544 
5444 
His 
Hs § 
5448 
5449 
us 
545 
5454 
55 
56 
5457 
54 


cre TUBO FRONT E 
TEST 








7 032376 


033020 
000003 


030772 
000122 


030772 
032662 
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: SUBTEST 6; FIFO VERIFY RESET FIFO TEST 


: SETUP T1I7PK2 PACKET FOR READ FIFO 


: INPUT: 
RO CONTAINS SEL2 BYTE COUNT 
: 


17RF IF: 





JSR PC .T17CLRBUF 
MOV s oR1 
#PW.REIFO,(R1)+ 





OVE RO, (R1)¢ 
RTS PC 


; ; CLEAR EXPECTED DATA MESSAGE BUFFER 
TI7CLEXP: 
MOV @TI7EXP Ri 
@TI7EXEND-T17EXP RO 
10$: CR1)¢ 





RO 
10$ 
PC 





Set WORDS 0-7 of expd message buffer = 
T17SETEXP: 
MOV 





@TITEXP,R2 
STITBER.RS 
#8, RO 
S$: MOV cndi+, (R2)s 
act 4—s«CSS 
RTS —s«éPE 
-BLKB 10-<.-TUV2A87> 
“WRITE CHARACTERISTICS COMMAND PACKET 
TI7PACKET: 
: 100004 
TI7DATA 
0 
10. 
TI7DATA: 
TI7BFR 
0 
20. 
0 
0 





sMESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
TI7BFR: 


 — 


sCLEAR MESSAGE BUFFER 

sWRITE SUBSYSTEM DATA BUFFER 
sSTORE READ FIFO IN BSELO 

STORE BYTE COUNT IN BSEL1 
ETURN 








GET EXPD ADDRESS 
GET EXPD SIZE 
sCLEAR A BYTE 


BR IF NO 
: RETURN 


to recy since not testing 


sGET EXPD 

:GET READ STATUS eae BUFFER 
sSET WORDS O-7 EXP=RECV 
3SET EXPD=RECV 

;DONE WORDS 0-7 WORDS? 

sBR IF NO 

; RETURN 


COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH ACK 
SADDRESS OF CHARACTERISTICS BLOCK 


sMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
3ESS,ENB.EAI ERI 
EXTENDED FEATURES UNIT NO. ETC. 


SEQ 159 


ecm A  erreeeer_ere_e__—_— SSS — 


K 11 
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TEST 1: SUBTEST 6; FIFO VERIFY RESET FIFO TEST 
000000 «WORD 0 sMESSAGE TYPE 
000000 eWORD 0 sDATA FIELD LENGTH 
000000 eWORD 0 sRBPCR 
70 000000 -WORD 0 XSTO 
672 000000 -WORD 0 3xST1 
74 000000 -WORD 0 ; 
sere 000000 -WORD 0 sxsT3 
700 000000 WORD “KST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 


4) 
702 TI7BFSTA: .BLKB 64. ;READ STATUS AND WRITE FIFO BUFFER 
2 T17BEND: END OF MESSAGE BUFFER 


WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
: .BLKB  10=<. = TUV2A87> 


T17PK2: 
eWORD P.WRTSUB!P.ACK sWRITE SUBSYSTEM WITH ACK 
eWORD 117DT2 ;LOW ADDRESS OF DATA yr 
-WORD 0 HIGH ADDRESS OF DATA BLOCK 
-WORD 10. MINIMUM MESSAGE PACKET SIZE 
T17DT2: sDATA BLOCK 
000 BYTE 0 ;BSELO 
000 BYTE 0 ; 
000000 . 0 sSEL2 
5486 033024 -—BLKB 66. sWRITE FIFO DATA OUTPUT BUFFER 
5487 033126 000000 TI7DLY: .WORD 0 sHOLDS DELAY VALUE 
5489 033130 ENDTST 
033130 L100 


36: 
033130 104401 TRAP CSETST 
5490 


SEQ 140 


os 
——E——— eel 


TEST 2: 





CZTUXAO TUBO FRONT END 


005037 
005037 

330 035142 012757 

5505 

5504 

5505 

5506 

5507 

3308 


5510 

5515 035150 004737 
5516 033154 
5517 033160 004757 
5518 033164 012757 
5519 033172 

5520 033172 004737 
338) 033176 004737 












528 
55 Oreos 012737 
5530 055210 004737 
5531 oaesie 103426 
5532 033216 
33216 012727 
2 000000 





ND PRT B 
INITIALIZE #2 TEST 


002170 
003100 
005755 


017040 


3 
oneoee 034006 


017372 
000002 


034030 
034120 


176750 
016630 


000250 
002116 
177772 
177756 
033566 


7 020064 





L 11 
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“ ,SBTTL TEST 2: INITIALIZE #2 TEST 
“THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
; CONTROLLER TO ITS aWITIALIZED STATE FROM VARIOUS CONDITIONS 
° BGNTST sie 
CLR _—sFATFLG CLEAR FATAL ERROR FLAG 
CLR —sKTFLG sHOLD OFF KT11 
002146 MOV -« #EPRT1, EPRTSW ‘SET UP PRIMARY ERROR MESSAGE 
TEST 1 
JSR —s- PC, DSBINT sDISABLE INTERRUPTS 
MOV —s-: @TST271D,RO SASCII MESSAGE TO IDENTIFY TEST 
JSR —s- PC, TSTSETUP [D0 INITIAL TEST SETUP 
002164 ia MOV —s-«@#2., LOOP CNT SPERFORM 2 ITERATIONS 
"JSR —s- PC, TZ 1REST sSET COMMAND PACKET 
JSR —s- PC. T21RT2 °SET UP OTHER COMMAND PACKET 
SSRARAAAAAAAAAAAAAARAASAARAAAAAAAAAAAARARAARARAAAAAAARERAKEAHAAHAAAE 
SISSUE CONTROLLER SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 
+ Reeeenenaeeeerreeteeerereenreeeenereanenerenennnenerenenanaaneetes 
033566 MOV #65000, .T210LY sSET DELAY ROUTINE 
11$: JSR ‘PC, SOFINI :D0 INITIALIZE ON CONTROLLER 
Bcs 0—s«(208 BR IF INIT WA 
DELAY 250 “DELAY FOR A REWIND TO FINISH 
MOV #250, (PC)+ 
.WORD 
MOV —s LSDLY, (PC) 
. WORD 
DEC 0-6 (PC) 
BNE 26 
DEC = = 22 (PC) 
BNE .- 
T21DLY BUMP COUNTER 
“BR, IF MORE TIME TO GO 
PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
- s CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR, SF IMSG “FATAL ERROR TSSR WAS NOT OK 
CSERDF 
WORD 201 
“WORD  SFIERR 
“WORD  SFIMSG 
208: 
MOV _—s#T2 1PACKET,R4 - SUBRO DS PACKET ADDRESS 


SEQ 141 


! 
EE lial 


— 


——_ ee 





TEST 2: 





76 004 
5551 033302 
5 3304 


CZTUXAO TUBO FRONT END PRT B 
INITIALIZE #2 TEST 


54 
33320 011656 


0 
5558 033322 
5559 033322 
5560 033330 
5561 033334 
5562 033340 
5563 033342 
5564 033346 
5565 033352 


is Si 


3569 0 033564 
5578 033370 
0333 








012765 


7 0103522 


020064 


000000 
7 017104 
000000 


176377 
2 


020064 


020136 
017340 


033172 
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FAASASASAAAAAAAAATAAAAAALTASAAAAAKAAAAAAAAARAAAKAAAKEKAHAeKeKAKeeeeeeeee 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


. 
° 
FAAAAAAAAAAAAAAAAKAARASAATAALASAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAARAAAETE 


23$: 


35$: 


37$: 


40S: 


63$: 


PC,WRTCHR 
3$ 
PC, FATCHK 
ERRNO, WRIMSG, SF IMSG 


#0, TSSR(RS) 

PC .WAITF 
TSSR(RS) RI 
#*C<HIADDR> ,R2 
#SSRINBA,R2 
#OFL,R1 

aT Re 

37$ 


PC .FATCHK 
ERRNO, T21AMS .EXPREC 


40$ 
ERRNO, TZ10FL .EXPREC 


PC .CKDROP 
PC, TSTLOOP 


T21L00P 
TST 


s ISSUE WRITE CHARACTERISTICS 
F COMMAND 


SINC AND CHECK FOR MORE THAN 25 ERRORS 
[SAVE CONTENTS OF T 
“WRITE CHARACTERISTISC FAILED 

TYORD 

“WORD 


s ISSUE A SOFT INITIALIZE 
sWAIT FOR JUST THE SSR BIT TO SET 
READ THE TSSR BACK 
sWORK REGISTER 
CLEAR OUT OTHER BITS 
; SOME THE aT SHOULD BE SET 








CSERHRD 
202 


WRTMSG 
SF IMSG 


sBR, DRIVE IS OFF LINE 
sENPECTED (R2) = RECEIVED (R1) 
If THEY ARE EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERROR TRYING TO INIT AFTER WRITE MISC. 
TRAP CSERHRD 


-WORD 2035 
«WORD T21AMS 
D EXPREC 
sLOOP IF SELECTED 
CSCLP1 


sSKIP OVER OFF-LINE STUFF 


sDRIVE IS OFF LINE 
TRAP CSERDF 
WORD 204 


eWORD T210FL 
-WORD EXPREC 
sTRY AND DROP UNIT 
:D0 WE NEED TO ITERATE TEST 
BR, IF NO LOOP REQUIRED 
EXECUTE AGAIN 
ALL DONE THIS TEST 
TRAP CSEXIT 
eWORD 110045-. 


SEQ 142 


ee -_-——- 


oe pee see ee came wee ee ee 


N11 
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TEST 2: INITIALIZE #2 TEST | 


;* 
SLOCAL STORAGE FOR THIS TEST 
“ 19}<.=TUV2A87> 






-BLKB 
T21PACKET: sCOMMAND PACKET FOR TEST 
100004 eWORD 100004 SWRITE CHARACTERISTICS COMMAND, WITH, ACK 
033450 eWORD T21DATA sADDRESS OF CHARACTERISTICS BLOCK 
000012 eWORD 10. sSTARTING VALUE OF BLOCK SIZE 
T21DATA: : CHARACTERISTICS DATA BLOCK 
033460 eWORD T21BFR sADDRESS OF MESSAGE BUFFER 
000000 -WORD 0 
000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
000000 -WORD 0 
T2Z1BFR: .BLKW 25. sMESSAGE BUFFER 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
eBLKB 10°<.-TUV2ZA87> 
T21PK2: 
100206 eWORD 100206 sWRITE SUB SYS MEM COMMAND, IE AND ACK 
033560 -WORD T21BF2 sADDRESS OF SELECT BLOCK DATA 
000000 «WORD 0 
000006 eWORD 6. sSIZE OF DATA PACKET 
EVEN 
17 T21BF 2: 
18 000 T218S0: .BYTE 0 sBSELO AREA --= ‘’COMMAND'’ BYTE 
19 03 000 21B8S1: .BYTE 0 sBSEL1 AREA 
Or eeee 000000 T21S2: . 0 sSEL 2 AREA 
1 033564 000000 T2183: .WORD 0 sDATA AREA 
; 033566 000000 T2Z1DLY: .WORD 0 sDELAY COUNTER 
5624 


5625 


—— anne 


; 
ee ee eee eee - 


8 12 
1 
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TEST 2: INITIALIZE #2 TEST 


5627 
5628 





5631 
5632 033570 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 





127 122 111 T21SSR: .ASCIZ "WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
$633 033665 124 123 123 T21AM3: .ASCIZ ‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS* 
5634 033765 104 162 151 T210FL: .ASCIZ ‘Drive is OFFLINE’ 

5635 034006 111 156 151 TST211D: nage ASCIZ ‘Initialization #2° 
;¢ 
“ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
“WRITE SUBSYSTEM MEMORY COMMAND 
5644 034030 T21REST: 
$645 034030 SA 3 SAVE _THe REGISTERS 
034034 012701 033440 MOV #T21PACKET,R1 “START OF THE PACKET 
5647 034060 012721 100004 MOV #100004, (R1)+ “WRITE SUBSYSTEM MEM. WITH ACK, 
5648 034044 012721 033450 MOV #T21DATA, (R14 SADDRESS OF CHARAISTICS DATA BLOCK 
5649 034050 00502 CLR CRI 'e SEXTENDED ADDRESS 
5650 034052 012721 000010 MOV #8. (R1)+ SSIZE OF DATA BLOCK IN BYTES 
5651 0 056 o127et 033460 nov aTdiarR, cats SADDRESS OF MESSAGE BUFFER 
0 012721 000024 MOV #20, (R106 sLENGTH OF MESSAGE BUFFER 
034070 005021 CLR 
5655 034072 005011 CLR my. 
5656 034074 012702 000020 MOV #20,R2 sNUMBER OF LOCATIONS 10 BE CLEARED 
5657 034100 012762 177777 033460 64$: MOV #177777 ,T21BFRCR2) sALL ONES TO MESSAGE BUFFER 
5658 034106 005742 TST =(R2) SNEXT LOCATION 
5659 034110 020227 000000 CMP r2,40 “CHECK R2 FOR ZERO 
5660 34114 001371 BNE 64$ “BR, If NOT AT ZERO YET 
5661 034116 00020 RTS PC SRETURN 
566e 034120 T21RT2: 
5663 0341 SAVREG sSAVE THE REGISTERS 
5664 0541 & 012701 033550 MOV #T21PK2.R1 *START OF THE PACKET 
5665 034130 012721 100206 mov #100206, (R1)+ “WRITE SUBSYSTEM MEM. wits ACK, IE 
5666 034134 012721 033560 MOV #T21BF2,(R1)+ SADDRESS OF DATA BLOCK 
5667 034140 00502 CLR (R1)¢ “EXTENDED ADDRESS 
$668 0 16e or272t 000006 nov #6., (R1)¢ “SIZE OF DATA BLOCK IN BYTES 
& 
685 4 150 Ora76t 033560 MOV #T21BF2,R1 SADDRESS OF DATA FOR WRT SUB SYS MEM 
5671 034154 005021 CLR (R1)¢ 
ae 034156 005011 CLR (R1) 
5673 034160 ? RTS PC = RETURN 
5674 034162 ENDTST 
034162 L 10045: 
034162 104401 TRAP  CSETST 


5676 
5677 
5676 
5679 





5688 

5689 034164 
164 
5690 034164 
034170 
5692 034174 
5697 034202 
5698 034206 


3 


CZTUXAO TUBO FRONT E 


5699 034212 004737 


5700 034216 
5701 
5702 


012737 





C i2 
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TEST 3: OFF-LINE AND REJECT REWIND 


002170 
003100 
005755 002146 


7 017040 


035322 
017372 
000002 002164 


oSBTTL TEST 3: OFF“LINE AND REJECT REWIND 


STHIS iEST be ky BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
OPERATION OF THE RtwIND POSITIONING COMMAND. IT NO 
NECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND FROM AN 
sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
:CHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
;TYPICALLY REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TES? 
s SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING ONE SUBTEST 





















BGNTST Sas 

CLR nk CLEAR FATAL ERROR FLAG 

CLR FLG sHOLD OFF KT11 

MOV REPRTI .EPRTSU ;SET UP PRIMARY ERROR MESSAGE 
JSR PC ,DSBINT sDISABLE IN 


MOV #TST221D0,R0 
JSR PC, TSTSETUP 


NTERRUPTS 
sASCII MESSAGE ia TEST 
MOV #2,LOOPCNT 


3D0 INITIAL TEST 
sPERFORM 2 ITERATIONS 


SEQ 145 


ee 
—o_ ee ee 
eta A EN OE - 


A TTT 











5704 034224 
5705 


3 
5722 
5725 

5724 034236 
5725 034242 


oe Se 


250 
$731 Oaeses 








SES EEEEEES 


Serre r: 
E 


104402 
00473 
004737 


CZTUXAO TUBO FRONT END PRT B 
TEST 3: 


7? 035556 


035450 


7 016630 


020064 


034470 


010322 
? 


020064 
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OFF-LINE AND REJECT REWIND 





T22L00P: 
+ 


D 12 
PAGE 88 


;TEST 3, SUBTEST ? 


;VERIFIES THAT A REWIND COMMAND WITH CVC=1 CLEARS VCK 
AND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 


JSR 
JSR 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


""" TRAP C$BSUB 
3SET COMMAND PACK 


PC. T22REST ET 
;SET UP OTHER COMMAND PACKET 


PC ,T22RT2 


SAHSAAAAAAAAAALERALASAAHAAEKAAAAAAARARARIAKRAKAHAAKAAAAAAAAAAAAAeeSeS 


SISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


. 
FRAAKRHRSAAAAARSATASAAAAAAASSAAASAAKAAARAAARAKARARARAAAAAAKAAAAAAAAAAAAES 


20S: 


PC SOF INIT :D0 INITIALIZE ON CONTROLLER 
sBR If INIT WAS OK 
PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
oR SCONTENTS OF TSSR REGISTER 
ERRNO, SFIERR SF IMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDS 
WORD 301 
-VORD SFIERR 
-WORD SFIMSG 
STZ22PACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SRARAAAAAAAAAAATHA TATA TA LTAATAAAEKAAAAAAARARAEAAATAAAAAAAAAAARARAAAES 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


@ 
SRAAKAAAAATATSSSAATAASASSAHAALLSAAAASHAAAAAAAAAAAAAKATAAAAAARATAAATS 


034600 





658: 





JSR 
BCS 
JSR 











nessyess 
o ‘s 



















PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND IS 
PC FATCHK INC _AND CHECK FOR MORE THAN 25 ERRORS 
R SSAVE CONTENTS OF TSSR 
ERRNO.WRIMSG,SFINSG § ;WRITE CHARACTERISTISC FAILED 
CSERHRD 
TUORD 302 
“WORD  WRTMSG 
“WORD  SFIMSG 
#142010, 122PK2 POSITION COMMAND (REWIND MODE) CVC=1 
#122PK2,R4 zR4 = POINTER TO PACKET 
Ra TSDB(RS) 
PC WAITF 
TSSRIRS) RI 
@SSR,R2 
1,R2 





' 


et 


SEQ 146 


' 
eee ee ee eee - ee ee ee a 


——— 
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TEST : OFF-LINE AND REJECT REWIND 
5757 034350 004737 920064 JSR PC. FATCHK 
5761 034354 ERRHRD ERRNO, TooRWs eEXPREC 
034354 
80S: CKLOOP 
034512 MOV #T22BFR,RS 
000006 ROW XSTOCRSS. R1 
OV Ri, 
000020 BIC #BiT4,R2 
CMP Ri, R2 
BEQ 908 
020064 JSR PC FA 
14 ERRHRD a Thy TOOVCK EXPREC 
Strate 
0344 035247 
034422 016330 
5774 034424 90$: 
5775 034424 ENDSUB 
034426 
0 4 104403 
0 023727 002170 000031 CaP FATFLG,#25. 
0 240 BLT 939% 
0 004737 020136 JSR PC .CKDROP 
O3444 O99E: 
0 py oth 017340 JSR PC, TSTLOOP 
034446 103002 acc 1638 
034450 000137 034224 JMP T22L00P 
034454 1638: EXIT TST 
034454 104432 
034456 001036 






5 hy Ry HAN 25 ERRORS 
sTSSR INCORRECT AFTER TAPE € MOTION CMD 
TRAP RHRD 











T22RWJ 
EXPREC 


sLOOP IF SELECTED 


CSCLP1 
sPOINTER TO MESSAGE BUFFER 
:PICK UP XSTO FROM MESSAGE BUFFER 
;SET UP EXPECTED 











3svCK ae BE CLEAR 
sARE THEY EQUAL 
3BR, IF OK (GOOD) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
s¥CK WASN'T CLEAR (BAD) 
TRAP CSERHRD 
WORD 
-WORD T22VCK 
-WORD EXPREC 
:>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110047: 
TRAP CSESUB 
S ERROR COUNT AT 25 


He 
BR. IF LESS THAN ty 
:TRY TO DROP THE UNIT 


:D0 WE NEED TO ITERATE TEST 
sBR, IF NO LOOP REQUIRED 
EXECUTE AGAIN 

sALL DONE THIS TEST 


SEQ 147° 


—— ns 
eee LL LLL 


eR ee re ee a ree 
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TEST 3: OFF-LINE AND REJECT REWIND 


SEQ 148 























$785 3+ 
5786 “LOCAL STORAGE FOR THIS TEST 
5789 0 .BLKB 19-<.-Tuv2A87> 
$791 70 T22PACKET: SCOMMAND PACKET FOR TEST 
5 79 100 .WORD 100204 “WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
‘ 034 “WORD T22DATA SADDRESS OF CHARACTERISTICS BLOCK 
5794 034474 600000 “WORD 0 
5795 7% 000012 “WORD 10. sSTARTING VALUE OF BLOCK SIZE 
% 500 T22DATA: SCHARACTERISTICS DATA BLOCK 
3 500 034512 .WORD T22BFR SADDRESS OF MESSAGE BUFFER 
he a 
504 000024 <WORD 20. SLENGTH OF MESSAGE BUFFER 
$800 034506 000000 “WORD 0 
$801 034510 000007 “WORD 7 sSELECT DRIVE 7 
$0 034512 T22BFR: BLK 25. “MESSAGE BUFFER 
:uRITE SUBSYSTEM MEMORY COMMAND PACKET 
$807 576 lie .BLKB 10-<.-TUV2A87> 
$ 
10 100206 .WORD 100206 SWRITE SUB SYS MEM COMMAND, IE AND ACK 
110 034610 “WORD  122BF2 SADDRESS OF SELECT BLOCK DATA 
‘¢ 0 poss eg WORD O 
13 0 .WORD 6. sSIZE OF DATA PACKET 
15 EVEN 
1 0 19 
17 03461 000 BYTE 0 sBSELO AREA 
18 034611 000 BYTE 0 SBSEL1 AREA 
1 0 12 000000 : 0 :SEL 2 AREA 
: 14 000000 ‘ 0 sDATA AREA 
; LEVEN 
sTAPE MOTION PACKET COMMAND VALUES 
0 16 100201 T22RD: .WORD 100201 SREAD TAPE FORWARD 
100205 T22URT : “WRITE TAPE FORWARD 
0 100210 122P0S: 100210 :POSITION TAPE 
t90211 T22FOR: 100211 -FORMAT TAPE 
0 177777 177777 [END OF DATA 


CZTUXAO TUBO FRONT END 


TEST 3: 





rays 
Sano 


rts 


1 
1 
3 
1 
1 
j 
1 


=—OnNOnwr 
NAERRes 








T 8 
OFF-LINE AND REJECT REWIND 


eth oe aah wal aD end od 


ERP FOP 
OO Cecero cere 











ee | 
Sonn uwrn 
AWWA 


034512 
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3+ 
— TEXT MESSAGES FOR TEST 







T22SSR: 
T22AM3: 


T220FL: 
Ll 


T22RWJ: 
T22VCK: 


TST221D: 


Se Ge 
co 


sROUTINE TO RESTORE COMMAND PACK 
OMMAND 


"WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accept 


ted‘ 
*TSSR Init. Failed After ey he toy CONRTOL/READ STATUS’ 
"Drive 7 Select Failed To Set ‘OFL’’ In 
*TSSR Incorrect After T fon 
*TSSR Not Correct After 








Mot seal 
WIND vith vCK Set’ 


*¢cvc Set, Bidn'*t Reset VCK In Message Buffer’ 


oASCIZ 


sWRITE SUBSYSTEM MEMORY C 


T22REST: 
SA 


64$: 


& 
T22RT2: 





#T22PACKET RI 
#1 ,cRi)¢ 
aT220ATA, (R1)¢ 


no cans 
veal o(R1)¢ 


marsh? 

rt, a 

se tTaT .T22BER(R2) 
@(h2) 

R2,#0 

64$ 


PC 











#T22PK2 ,R1 
#100206, (R1)+ 
#T22BF2,(R1)+ 
(R1)* 








Off-Line And Reject Rewind’ 


ET TO START-UP (DEFAULT) VALUES 


s SAVE THE REGISTERS 
sSTART OF 


THE PACKET 
SWRITE SUBSYSTEM MEM. WITH ACK, IE 
SADDRESS OF CHARAISTICS DATA BLOCK 


s EXTENDE Ss 
;SaZE OF DATA BLOCK IN BYTES 
ADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE SEVEN 
NUMBER OF LOCATIONS TO BE CLEARED 
sALL ONES TO MESSAGE BUFFER 


sBUMP R2 DOWN 

s1S R2 AT ZERO YET 
sKEEP GOING UNTIL DONE 
RETURN 





sSAVE THE ag Ha 
START OF THE PACKET 

WRITE SUBSYSTEM MEM. WITH ACK, IE 
° S OF DATA BLOCK 


s EXTENDED 
;SIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


sLAST LOC TO BE CLEARED 
;RE TURN 


110046: 
TRAP 


To Off-Line Device’ 


CSETST 


SEQ 149° 


ne <a 
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CZTUXAO TUBO FRONT END PRT G 
4: BASIC WRITE DATA 


SESe2 SSSSISIIIEICEEE 





000001 002164 


eee 


Pw 
<< 
ead 


-SBTTL TEST 4: BASIC WRITE DATA 


+ 


;THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
PROPERLY. U O Tit PO WE DATA WAS ACTUALLY 


N ONTO THE TAPE TEST IS 
LIMITED TO VERIFYING THAT T ERMINATED — WITH 
3 THE CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


$ THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 













Té:: 

FATFLG beso FATAL ERROR FLAG 
KTFLG sHOLD OFF KT11 
#EPRT1,EPRTSW SET UP PRIMARY 24 MESSAGE 
KTENABLE STURN OFF KT11 
2 STURN OFF at 

sDISABLE INTERRUPTS 
etst2s10.Ro sASCII] MESSAGE TO IDENTIFY TEST 
PC .TSTSETUP 3D0 INITIAL TEST SETUP 
#1 *LOOPCNT sPERFORM 1 ITERATIONS 


— ———— ee ee 
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CZTUXAO TUBO FRONT END PRT B SEQ 151 
TEST 4: BASIC WRITE DATA 



















5§917 035566 T23L00P: 
5918 3¢ 
5919 ; 
3080 s TEST 4, SUBTEST * 
592 : VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE 
ra BYTES ¢ OPERATES PROPERLY. T 

5 ING UPON WHETHER OR NOT 
5926 N THE LONG VERIFICATION 
56 BETWEEN SUCCESSIVE 
5 $ BUT IS RE AFTER THE FINAL RECORD IS 
4 AN INCREMENTING COUNT PATTERN IS SUPPLIED 

iN THE SATA BUFFER. AFTER EACH BLOCK IS pith THE 

3333 : TSSR AND TSBA REGISTERS, AND THE MESSAGE BUFFER. 
5933 “ 
5934 : 


5935 
5936 035566 
Oraeee 







¢>>>>>>>>>>>> age Suarees >>>>>>>>>>>> 
























104402 TRAP  CSBSUB 
5937 0 033870 013701 003074 FRESIZ.R1 GET SIZE OF AVAILIABLE MEMORY 
358 8 re 000241 [CLEAR THE CARRY BIT 
O10187 040010 R1, T23RSZ SSTORE! IN TEST FoR USE LATER 
Hoe : she 004737 041266 PC, T23REST SSET COMMAND PACKET 
$942 035610 004737 041422 PC, T23RT3 “RESTORE PACKET 
5945 035614 004737 041360 PC. T23RT2 SET UP OTHER COMMAND PACKET 
946 seeeteeeererarerreceeeceseeneeereraaeraegnrearsegaagenesecanageegnene 
sou? ISSUE CONTROLLER “SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
3950 + Reeeereneenerecereceneeeserererectranernaeeereenententennenetentee 
1 004737 016630 PC, SOF INIT D0 INITIALIZE ON CONTROLLER 
5958 03 103407 SBR IF INIT WAS OK 
595 004737 020064 PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
5957 ; 010001 R0,R1 SCONTENTS OF TSSR REGISTER 
5958 0 ERRNO.SFIERR.SFIMSG | FATAL ERROR TSSR WAS NOT OK 
0 104455 CSERDF 
é 1 WORD 401 
“WORD SFIERR 
0 11656 “WORD SFIMSG 
$959 0 208: 
5960 012704 037650 MOVs T2SPACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
snes seeeaeerenegeeeeeeseeeererererererererersageeeeresereeganaesesenesce 
964 WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 






5969 035654 
5970 035656 004757 





? 010322 





ca 
seeeeerereeecererereeereresereeeseearaseagesseesseageseeaaeeaseeess 


JSR PC ,WRICHR ISSUE WRITE CHARACTERISTICS 
BCS :BR, IF COMMAND ISSUED Ok 
JSR C FATCHK -INC AMD Cb 1 MC sam 25 ERRORS 













CZTUXAO TUSO FRONT END PRT B 


TEST 


5974 035662 
5975 035664 
035664 


010001 


104456 
2 


0047 
5672 011656 








104406 


4: BASIC WRITE DATA 


004737 010424 
012705 000024 


013737 


012737 
01 


003072 


140005 
040000 


020356 
040006 


177776 
7 017104 
000000 


020064 


177776 
040000 


001750 
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040002 


040000 





MOV RO.R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO, WRIASG,SFIMSG [WRITE CHARACTERISTISC boy 





WORD 
“WORD 
TRAP 
SAAAAASSASAAALSSAASSAHLSALAAA TAKS AAAAAAAAARAKLAKAKRAA ALAA KeAeeRKeeeee 
SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


JSR «PC, REWIND sCALL THE TAPE REWIND 
MOV 20., “STARTING RECORD SIZE 
65$: MOV FREE, T2308 [STARTING WRITE BUFFER ADDRESS 


SRAAAAHAAAAAAAAAAATTS AE AALETAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALEEE 


“WRITE DATA,CVC=1,ACK COMMAND 


6 
SSRAAAAAAAAASHSASHAHATSHSE ASKS TAAAEAAAAAAAAARERAAHAAHAAAKALARAAAEREE 


238: CKLOOP sLOOP IF SELECTED 





























MOV #140005, T23PK3 SWRITE DATA, CVC=1,ACK COMMAND 
MOV 0s T23PK3.RG “SET UP RG WITH PACKET ADDRESS 
MOV ITE 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR «PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRWO,WRTERR,PKTSSR STSSR INCORRECT AFTER wate TE DATA, sile 
TBORD 403 
“WORD WRTERR 
80$ OOP IF SELECTED — 
:  CKLOOP st 
TRAP  CSCLP1 
MOV TSBACRS) RI GET TSBA CONTENTS 
MOVs T23PK3,R2 D 
85$: fa R1 RZ 
JSR —s- PE FA Ine AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD 4 Thy T95BA, EXPREC STSBA WAS NOT CORRECT AFTER WRITE DATA 
RAP CSERHRD 
"WORD 238A 
OOP IF SELECTED — 
:  CKLOOP st L 
— . TRAP cecil 
1158: ADE #1000... “NEXT RECORE J "baat 





SEQ 152 


’ 
’ 
‘ 
ee Oe ee ee ee et ee ee ee 


Kk 12 
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SEQ 155. 
TEST 4: BASIC WRITE DATA | 








026337 040010 CMP R3,T23RS2 
BGE 1208 
020327 177776 CMP R3,#65534. 
001402 BEQ 120$ 
000137 035706 1208 JMP 65$ 
004737 041422 JSR PC. T23RT3 sRESTORE PACKET 
004737 041360 JSR PC, T23RT2 sCLEAN UP PACKET 
004737 010424 JSR PC REWIND s ISSUE REWIND COMMAND WITH WAIT 
4 103407 BCS 1308 “BR, IF TSSR IS OK (GOOD) 
010001 MOV RO,R1 sSAVE TSSR CONTENTS 
7 020064 JSR PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25RWN,PKTSSR sTSSR IS INCORRECT AFTER REWIND 
036 104456 TRAP CSERHROD 
0 000625 eWORD 405 
oaeies 040401 J T23RWN 
036112 011670 «WORD PKTSSR 
6039 036114 130$: 
6040 oeetsa ENDSUB 2>>>>>>>>>>>> oe sere >>>>>>>>>>>> 
L : 
036114 104403 TRAP CSESUB 
6041 036116 023727 002170 000031 CMP FATFLG.#25. :1S ERROR COUNT AT 25 
6042 036124 002402 BLT 999$ :BR, IF LESS THAN 25 
6043 036126 004737 020136 JSR PC, CKDROP :TRY TO DROP THE UNIT 
6044 036132 999$: 


ee 


rs a aa —— ae ee 


em ee tt ete te ee te 


i€st 





=] 
& 
pry 
> 


10 
10 
12 
14 
16 


Soucocooceaeo 


s5008 


737 

73 

000627 

ct 
: 





003550 
65 011656 
70 

012704 


CZTUXAO TUBO FRONT END PRT B 
4: BASIC WRITE DATA 


041266 
041360 


0166350 
020064 


037650 


010322 
020064 


000024 
003072 040002 


wom eee ee 
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-¢+ 


[TEST 4, SUBTEST 2 


sVERIFIES THAT WRITt DATA COMMANDS WITH CVC=1 AND THE 
sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 





BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


i csesue 
JSR  —«- PC, T23REST SET COMMAND PACKET 
JSR «PC. T23RT2 SET UP OTHER COMMAND PACKET 
SRAAKSAAAAARAATAASHAKSRASAAAAALEKAAAAAAAAAAAAHAHAAAAAAAAAAAAAAAAAETE 


[ISSUE CONTROLLER "SOFT INITIALIZE = CARRY BIT CLEAR IF ERROR 


6 
SRAAAAHAAAAAALAAAAAASSUTAAAAHAAALAAAAAAAAARAAAAERARAAAERAHAAAAAAAAAALE 


JSR PC SOF INIT :D0 INITIALIZE ON CONTROLLER 

BCS sBR IF INIT WAS OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV : sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SF IASG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
-WORD 406 
-WORD SFIERR 
WORD SFIMSG 


208: 


MOV ST2SPACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SRAAAAAAAAAAAAAESLAASAAKAAE AAS AAAARAAERAKRAHARARAAAAKAKASAARARA AAAS 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
* eeeneeeneaneneeereeeereereerencencanrennennenreaeeenterentenrenees 
JSR —s- PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
acs isé28S SBR, IF COMMAND 
JSR CHECK FOR RORE THAN 25 ERRORS 


PC .FATCHK sINC AND 
MOV ROR sSAVE CONTENTS OF TSS 
ERRHRD ERRNO, WRIASG, SF IASG sWRITE CHARACTERISTISC boy 





.WORD 
oe 
23$ “WORD SF IMSG 
"mov ss #20... STARTING RECORD SIZE 
65$: MOV FREE, 123u8 STARTING WRITE BUFFER ADDRESS 


SEQ 154 


A 
wees oe 
aE nl 


ES LT Le 


~ - oem ee ee oe 


TEST 


6099 
eit 


6103 036232 
40 


6104 0362 
6105 036244 
6106 0362 
6107 036252 
036256 





012737 
012704 


737 


004 
010357 04 
01046 


~w 


00475 
016501 
012702 
020102 
001406 
737 
104456 
000630 
005011 
011670 





A eae TU8O FRONT END PRT B 


: BASIC WRITE DATA 


150005 
040000 
020356 

0006 
177776 
017104 
000000 
000200 


020064 


06 
177776 
040000 


020064 
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sWRITE DATA,CVC=1,ACK,SWB COMMAND 





ee oe eee ee 


a 
s 
SRAAAAAAATAAAAKAAAATAAKSS LAK AAAAKAAAAAAAAKAKAKAAAKAAARAAAAATLeKATAee 





040000 MOV «#150005, T23PK3 
MOV = #T23PK3.RG 
MOV —s_R3, RO 
JSR —s- PC FELLER 
MOV °12382 
nov R4. TSDBCRS) 
MOV TSSRCRS) RI 
MOV —s- #SSRR2 
CMP RI Re 
BEQ 
JSR + ATCHK 
ERRHRD ERRNO WRTERR, PKTSSR 
80$:  CKLOOP 
MOV TSBACRS) RI 
MOV —s«#* T23PK3,R2 
85$: CMP R1,R2 
BEQ 
JSR —s- PC FAT 
ERRHRD ERRNO, TOSBA,EXPREC 
90$: 
R3,87376 
115$ 
PC, T23RT2 
040014 #256. .123S2 
pets #0. 123050 
#T23PK2_R 
R46, TSDB(RS) 
PC CHKTSSR 
28 


JSR PC .FATCHK 
ERRHRD ERRNO, T2SWSS,PKTSSR 


T25RT2 
og 12582 









sWRITE gig pee ae COMMAND 
ADDRE 





sFILL MEMORY WITH RECORD SIZE 
‘SET UP RECORD size IN PACKET 
: ge 

WAIT FOR SSR a. 
GET TSSR CONTENTS 
i. UP EXPECTED 





SINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER ae com 





sLOOP IF SELECTED 


:GET TSBA CONTENTS 
sSET UP gol 
ARE QUAL 


TRAP CSCLP1 


~ WORD 
-WORD T25BA 
WORD EXPREC 


sLOOP IF SELECTED 
CSCLP1 


RAP 
s ONLY — RAM UNTIL ITS FULL 


WRAP 
SMAKE SURE PACKET AND DATA ARE CLEAN 
STARTING RAM ADDRESS 
; STOP ey TUVOS DIAGNOSTICS 
OF RAM READ 


>S1ZE 

SET R4 rice PACKET ADDRESS 

ISSUE WRITE SUB SYS MEM COMMAND 
:CHECK TSSR AND WAIT FOR SSR TO SET 
BR, IF NO ERRORS IN TSSR 
SAVE TSSR 


5 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR BAD AFTER WRITE SUB SYS MEM 
TRAP CSERHRD 
410° 
“WORD T23wSS 
-WORD PKTSSR 


sLOOP IF SELECTED 
- CSCLP1 


RAP 
sMAKE SURE PACKET AND DATA ARE CLEAN 
3 STARTING RAM ADDRESS 
SYS A. 





T 
FOR MORE THAN 25 ERRORS 
STSBA WAS NOT CORRECT “ WRITE DATA 
TRAP CSERHRD 


SEQ 155 


~———e ee ee ee — | 


I A 
— neem nigel 


TEST 


6176 036572 
6177 036572 
036572 
036572 
6178 036574 
6179 036602 


6180 036604 
6181 036610 


0006 
040401 
011670 


104403 
023727 
002402 
004737 


CZTUXAO TUBO FRONT END PRT 6 
4: BASIC WRITE DATA 


000002 040015 
037760 


177776 
017220 


020064 
3 001750 
040010 


177776 
036224 


041360 
010424 


020064 


002170 
020136 
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000031 


95$: 


115$: 


120$: 


130$: 





#2,1238S1 
#T23PK2,R4 
Rae TSDB(RS) 

PF“ CHKTSSR 


Pe ATC 
#1000. .R 
t T23RSZ 
R3,#65534. 
120$ 

65$ 


sa 
130$ 


PC FATCHK 
ERRNO, T23RWN,PKTSSR 


FATFLG,#25. 
PC .CKDROP 







sSIZE_ OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
;ISSUE WRITE SUB SYS MEM CMD eo RAM) 

















sBR, 

3 SAV 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
re got SIZE/DATA = 





S R35 OVER MAX RECORD SIZE 
31F RECORD SIZE IS TOO BIG QuIT 
+ END OF SUBTES io RECORD SIZE 
D0 “MORE RECORDS 


sCLEAN UP PACKET 
s ISSUE REWIND COMMAND WITH WAIT 

3BR, IF TSSR 1S OK (GOOD) 

SAVE TSSR CONTENT 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR IS INCORRECT AFTER REVO 








CSERHRD 
"WORD 412 
WORD T235RWN 
-WORD PKTSSR 
§2>>22>>>3>>> wet ad >>>>>>>>>>>> 
L ° 
CSESUB 


TRAP 
:1S ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


SEQ 156 


| 


oe ee eee ee ee ee 
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TEST 4: BASIC WRITE DATA 








6183 :* 
6184 ; 
6185 STEST 4, SUBTEST 3 
6187 VERIFIES THAT A WRiTE COMMAND WITH AN ILLEGAL MODE 
6188 FIELD OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
oie : THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 
6191 
6198 ; 
619 
6194 036610 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
036610 104402 "TRAP ss C$BSUB 
6195 036612 004737 061266 JSR  —«- PC, T23REST sSET COMMAND PACKET 
6196 036616 004737 041422 JSR —s- PC, T23RT3 SRESTORE PACKET 
6197 036622 004737 041360 JSR  —«- PC. T23RT2 SSET UP OTHER COMMAND PACKET 
6199 SRRSRAAAASAAAASAATSEAAAAAAATALAAAAKAAAAARAAAAAAARALARRAAAARAARARARAAAEE 
6201 SESSUE CONTROLLER "SOFT INITIALIZE = CARRY BIT CLEAR IF ERROR 
6203 MITITIIT TIT tLitLi Li tiittitiiitiiiiiitiifiiiiiiiiiiiiiiiiiit 
5 036626 004737 016630 JSR PC,SOFINIT 3D0 INITIALIZE ON CONTROLLER 
6206 036632 103407 BCs “BR IF INIT WAS 
7 036634 004737 020064 JSR PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
6211 036640 010001 mov —ss—«aROTRT “CONTENTS OF TSSR REGISTER 
6212 036642 ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
036642 104455 TRAP CSERDF 
036644 000635 .WORD 413 
036646 003550 “WORD SFIERR 
036650 011656 “WORD SF IMSG 
6213 03665 208: 
6214 036652 012704 037650 MOV = #T23PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
rar SRAAAAAAAARAKSAAAEAAASAATA SS AAKALAREAAARAARAAAAEAAAREAARARAEHAAARAAAEES 
6218 “WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
6220 + eeeneeeneeercerenereereererreereeeeerentenrenrenennenneeneneentene 
1 
010322 JSR «PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 236 “BR, IF COMMAND 
7 020064 JSR «PC, FATCHK [INC AND CHECK FOR MORE THAN 25 ERRORS 
[SAVE CONTENTS OF 





MOV oR TSSR 
ERRHRD ERRNO, WRIMSG, SF IASG SWRITE CHARACTERISTISC fom y 


CSERHRD 
WORD 414 
WORD UWRTMSG 
WORD SFIASG 


FAAAeeeeeeKececeeeeeeeeeeeegedeeaeaeeeaedeaeeekaenseeveeeageveseeeeeaees 


“WRITE DATA, ACK, ILLEGAL BITS 


: 
SSHUSHHARAAAASAASHAAAAAAASLALAAeRAAAARRARKAewARekaeaeeeaeeeereseeeseo oo 








CZTUXAO TUBO FRONT END PRT B 


TEST 4: BASIC WRITE DATA 
6236 
6237 036702 012737 104405 
6238 036710 013737 003072 
6239 036716 062737 000001 
6240 036724 012737 000400 
6241 036 012704 
| 036 010465 177776 
62435 036742 737 017104 
6244 036746 016501 
6245 036752 012702 100206 
re: 036756 020102 
47 036760 001406 
6248 036762 004737 020064 
6252 036766 
036766 104456 
036 000637 
036772 040226 
036774 011670 
6253 036776 
036776 104406 
6254 037000 
037000 
03 104405 
$o3 037002 023727 002170 
56 037010 002402 
6257 037012 004737 020156 
6258 037016 





¢ 13 


MACRO M1200 29-MAR-85 15:32 PAGE 94-1 


040000 235: 
040002 
540002 
040006 


000031 


T23PK3 





REE, 12508 
1 T23uB 
PCAWALTE 
#SSR'SC!BIT1!B1T2,R2 
Ri RZ 


PC ,FATCHK 
ERRNO, T25TM,PKTSSR 


FATFLG,#25. 
PC ,CKDROP 


eae 





sWRITE DATA, ACK, ILLEGAL BITS 
SET UP WRITE BUFFER ADDRESS 
sMAKE ADDRESS ODD (ILLEGAL) 
SET UP BUFFER SIZE 

sR4& = POINTER TO PACKET 





WEY EQUAL 
BR, If OK ESP. FUNCTION REJECT 








INC AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER eS COMMAND 
CSERHRD 
"WORD 415 
WORD T25TM 
-WORD PKTSSR 


sLOOP IF SELECTED 
Rap CSCLPI 
3>>>>>>>>>>>> a” >>>>>>>>>>>> 
L 6 


TRAP CSESU8 
21S ERROR el AT 25 
sBR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


: 


SEQ 158 | | 


' 
~— oe oe 


d 13 
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TEST 4: BASIC WRITE DATA | | 
+ | | 
: 
[TEST 4, SUBTEST 4 | 
: VERIFIES THAT A WRLTE DATA COMMAND SPECIFYING A DATA 
3BUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH | 
[THE PROPER ERROR STATUS UITHOUT ROVING TAPE | 
° i 
. 
: | 
BGNSUB :>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
104402 "TRAP ss C$BSUB 
005737 003100 TST —KTFLG sCHECK FOR KT=11 
001402 BEQ 4—Stié108 F NO KT-11 
000137 037266 JP «90S “SKIP THIS Test IF KT=11 
004737 061266 10$: JSR PC, T23REST “SET COMMAND PACKET 
004737 041422 JSR —s- PC, T23RT3 SRESTORE PACKET 
004737 041360 JSR —s- PC, T23RT2 SET UP OTHER COMMAND PACKET 
SAHARA KASAAAAAAALSRAAKAKS Re HLT LKAEHRARLAAAAAAKARAAEAHAAAAAAAAAAAERE 
ZESSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
TITITIT itt titi titiiiiiiiiiiiiitiiiiiiiiiiii i 
004737 016630 JSR —s- PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
103407 acs $ SBR IF INIT WAS OK 
004737 020064 JSR —s- PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
010001 MOV ‘ “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO.SFIERR.SFIMNSG | :FATAL ERROR TSSR WAS NOT OK 
106455 T CSERDF 
0 WORD 416 
7066 003550 “WORD  SFIERR 
70 011656 pe “WORD SFIMSG 
012704 037650 " «MOVs @TQ3PACKET. RG sSUBROUTINE NEEDS PACKET ADDRESS 
oe SRRAAAAAAAATASTAATAATHSAAAAASTAAAAKAAAAAARALARAKAHARAAAAAAAAEAHE AAAS 
6 WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
ont SRHRSSHAAALAAAAATHAA TASK ATAAAASAAAARAAAHAAEAHAKRAAAAHAKARAAAAAAASAETTS 
6303 037076 004737 010322 JSR —s- PC WRTCHR SISSUE WRITE CHARACTERISTICS | 
6304 037102 103407 acs 23$ BR, IF COMMAND 
6305 037106 004737 020064 JSR PC, FATCHR SINC AND CHECK FOR MORE THAN 25 ERRORS | 
6309 0 2119 010001 MOV ¢ *SAVE CONTENTS OF TS | 
6310 03711 ERRHRD ERRNO,WRIMSG,SFIMSG | ;:WRITE CHARACTERISTISC FAILED | 
Os711e 104456 CSERHRD 
7114 000641 TeORD 417 | 
037116 006754 “WORD  WRTMSG 
037120 011656 “WORD SFIMSG | 
STTTSTAAASKSSASKALHSASKASKASASHLKALAAAAAARASAARAKRAARAKAAAKRAAAASAAAAARAARES nae - 


— ——— ~<a ——— 


CZTUXAO TUSO FRONT END PRT B 
TEST 4: BASIC WRITE DATA 
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6316 
S16 O3r26 005037 050216 
6319 037126 0127357 140005 040000 
6320 0 012701 1 
ead 037140 012702 177776 
037144 004737 017260 
¢ 037150 103402 
6326 037152 000157 037266 
6325 037156 010137 04 
015737 050216 040004 
012737 000100 040006 
012704 
Beef 17777 
004737 017104 
016501 
012702 104210 
020102 
001417 
737 000001 050216 
0 TR 000004 050216 
pools 037126 
004737 020064 
104456 
000642 
040226 
011670 
104406 
104403 
025727 002170 000031 
002402 
004737 0201356 


“WRITE DATA, ACK, CVC=1 


2 
Fs SAAASAAAAARAASSALELSLSAAAAATAAALAAAKALAAAAAKAAAAARAARAAALIeeKeseeeeee 


233: 
25$: 


76$: 


168$: 


CLR 


T24DLY 
#140005. 123PK3 
#177776 ,R2 

PC, XNXM 

76$ 

908 





R1,123u8 

redo ,Teswee2 
#T23PK3,R4 

R4, -TSOB (RS) 


TSSRCRS) RI 
@SC!NXM!SSR!BIT3,R2 
R1,R2 

#1, T24DLY 

#4. T24DLY 

168$ 

25$ 


PC .FATCHK 
ERRNO, T25TM,PKTSSR 





FATFLG,#25. 
PC ,CKOROP 


sSET EXTENDED eg BITS TO 0 
: z 





sJMP OVER CAN'T FIND NXA 

sSET UP WRITE BUFFER ADDRESS 
: ORDER ADDRESS BITS 
sSET UP BUFFER SIZE 
ren eee TO PACKET 








HEY EQUAL 

IF OK ESP. FUNCTION REJECT 

:LOOK AT NEXT EXTENDED BITS WORTH OF MEM 
MUCH MEMOR 








eWORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 
$2>>>3>>>3>>3> on” >>>>>>>>>>>> 
L : 
CSESUB 


TRAP 
s1S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


— nnd - - 


—— ee 








Ts aa TUBO FRONT END PRT B 
TEST 4: BASIC WRITE DATA 








6 
6 
6 
° 5 
a 
0 10440 
ones 0 5737 003100 
6369 03731 140 
6370 037314 000137 057610 
6371 0 7 061422 
Le} 037324 737 041 
6375 03 004737 041 
6374 
rs 
i 
oars 
79 
6381 037354 004737 016650 
8 103407 
004737 020064 
: 0 010001 
0 Mois 
Sait tis 
° 011656 
e390 0 012704 037650 
OO8T a7 010322 
: BS SE coon 
6404 76 010001 
6405 






28 





a re ee 
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+ 


TEST 4, SUBTEST 5 


: VERIFIES THAT A WRITE tl COMMAND SPECIFYING A DATA 
sBUFFER eg on IN EXISTANT MEMORY BUT RUNNING INTO 
sNONEXISTENT MEMORY TERMINATES WITH THE PROPER ERROR 
sSTATUS. A LARGE ENOUGH RECORD yO tail SUCH 






E 
; THAT TAPE IS ACTUALLY MOVED AND WR 





BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TRAP C$8suB 
9$: TST KTFLG sCHECK FOR KT11 
BEO 10$ sBR, IF NO KT11 
J™P 85% sSKIP THIS TEST 
10$: J PC. T235RT3 SRESTORE PACKET 


SR 
JSR PC, T23REST sSET COMMAND PACKET 
JSR PC ,T25RT2 SET UP OTHER COMMAND PACKET 


TITIIII III tiiiiiiiiiiiiiiiiiiiiiiii iii) 

sISSUE CONTROLLER “‘SOFT’’ INITIALIZE - CARRY BIT CLEAR IF ERROR 

s eeeeranencenererererereececerereerarenenrenneererenrenteneeeenente 

JSR PC SOF INIT :D0 oghtn es ON CONTROLLER 

BCS sBR IF INIT WAS OK 

JSR PC ,FATCHK CHECK FOR MORE THAN 25 ERRORS 


s INC AND 
MOV 6 SCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SF IASG sFATAL ERROR TSSR WAS NOT 










CSERDF 
WORD 419 
WORD SFIERR 
WORD SFIASG 


208: 
OV ST2SPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


steeerenerreeeereceerereesrererererrageaeeseraeeeasaseeagereseeeens 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


€ 
steeneeeecareereneeereneerereerenessegaggeesagetenesenseneeseeasaes 


JSR —s- PC, WRT CHR sISSUE WRITE CHARACTERISTICS 
esis SBR, IF COMMAND 













JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

ROV ‘ SSAVE CONTENTS OF TSSR 

ERRHRD ERRNO ,WRIASG, SF IASG SWRITE CHARACTERISTISC boy csenuan 
ORD 420 


a ee a 


SEQ 161 


CZTUXAO TUBO FRONT END PRT B 


TEST 





004737 


012737 


103407 


006737 
104456 






1 
11670 


A te: 
oars? Ot72 
010001 


4: BASIC WRITE DATA 
037406 011656 
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040004 
040000 


040006 


040004 
040004 


037760 


em a ee 


6 15 
PAGE 96-1 


£ SASK SSAAAASAAAAAATAAAAAAALAAAAAAKLAAAAAAAAAA AA AAKAeegeeeeeevaegeeeeere 


“WRITE DATA, ACK.CVL=1 


a 
£ SHAAAHASSSAAKSSS ALATA AAATA ALAS LALLAAAASAAKLAKALAKALAALAAAKALeAeeKaaeeeee 


233: 
?*$: 


85$: 


m <¢.. Conn 
sa oes 


CKLOOP 


JSR 
JSR 


#0, 1T23WB+2 


sHIGH ORDER ADDRESS BITS ETC. 
sMaITE a ACK, CvC=1 


HIGHES 
3SET ADDRESS A LITTLE LOWER 
sLOAD INTO THE PACKET 
SET UP BUFFER SIZE (64K BYTES) 
R4 = POINTER TO PACKET 











R4, TSDBCRS) 


TSSR(RS) RI 
#SC!INXM!SSRIBITS.R2 
R1,R2 





sBR, IF OK ESP. FUNCTION REJECT 
#1, T23WB+2 START CUTTING THE HIGH ADDRESS BITS DOWN 


#4, 123WB+2 

24$ s1F NOT AT ZERO, KEEP TRYING 
PC, FAT SINC AND CHECK FOR MORE T 
ERRNO, OSTAA, PKTSSR STSSR INCORRECT AFTER unITE: 





HAN 25 ERRORS 
COMMAND 
CSERHRD 











TeORD 621 
eWORD T23TRA 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
PC. T23RT2 sCLEAN UP PACKET 
PC, T23RT3 sRESTORE PACKET 


MTTTTITITITITITITITITTLITIT TLL LLL titi iLil ii ltl. 
a 


ISSUE A CALL TO REWIND ROUTINE WHICH WILL WAIT QUITE SOME TIME FOR SSR 


JSR 


ERRHRD ERRNO, T25RUN, PKTSSR 


KSHAHAAKKRSARAAAASSAHHSLAKAAATAEAAAARASAAAAKRAARAAAATAAARERAEARAALAAAAAEAS 












PC, REWIND sCALL THE TAPE REWIND 
#102010, T23PK2 ;REWIND (POSITION) COMMAND 

at “R4 “LOAD R4 WITH PACKET ADDRESS 

R4, TSDB(RS) REWIND COMMAND 

PC. CHKTSSR 

85$ 

RO,R1 T 

PC. FATCHK OR MORE THAN 25 ERRORS 


x 
STSSR IS INCORRECT whee = 






CSERHRD 
4 





T 
PKTSSR 


——_ ~- ww er ee 





SEQ 162 





W 13 
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TEST 4: BASIC WRITE DATA 


SEQ 165 





6459 037610 SKIP: 
6460 Serete 130$: | 
6461 037610 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
037610 110055: 
037610 104403 TRAP CSESuB 
ones oar ele 023727 002170 000031 CMP FATFLG,#25. 31S ERROR COUNT AT 5 
6465 0 re] 00240 BLT 9998 sBR, IF LESS THAN 2 
ores oe 2 0064737 020136 JSR PC .CKDROP sTRY TO DROP THE UNIT 
6466 0 004737 017340 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
6467 037632 10300 Bcc 163$ :8R. LOOP REQUIRED 
6468 0376 000137 035566 JMP T23L00P sEXECUTE AGAIN 
, 6469 037640 163$: 
6470 037640 EXIT TST sALL DONE THIS TEST 
037640 SEXIT 





CZTUXAO TUBO FRONT END PRT B 
+: BASIC WRITE DATA 


TEST 
647 
64 





1 13 
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i+ 
sLACAL STORAGE FOR THIS TEST 


: F 19=<, -TUV2A87> 
T23PACKET: 








100004 

T23DATA 

0 

8. 

T23BFR 

0 

10. 

T23QFR: .BLKW 25. 

“WRITE SUBSYSTEM MEMORY COMMAND PACKET 


T23DATA: 















e 10-<.-TUV2ZA87> 
T23PK2: 

-WORD 100006 

-WORD T23BF2 

-VORD 0 

eWORD 6. 

-BLKB 10-<.-TUV2A87> 
T23PK3: 

-WORD 100005 
T23W8: .WORD 0 

WORD 0 
T2382: .WORD 0 

EVEN 











-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 













T23uD: . 100005 
T23WOR: .WORD 100405 
T23CON: .WORD 102005 

WORD 177777 





ee ee 





COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH ACK 
SADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
s CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


SMESSAGE BUFFER 











sWRITE SUB SYS MEM COMMAND, AND AC 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sLARGEST TAPE RECORD IN BYTES 


sDATA AREA 


sWRITE DATA (NEXT) 
SWRITE DATA RETRY 
WRITE CONTINOUS 
ND OF DATA 











SEQ 164. 


—— nn - 

















TA arg TUBO FRONT END PRT B 


TEST 4: 





6584 061 
6586 041406 
6387 deter? 


VONNVONANNNNON 
nmenn 
Pt PS SINT ty ae 


od 
©S 
RO 


on37et 


005021 


BASIC WRITE DATA 


ee ee SS 
SS SNNN 
= POO WII WMP 


&POMURIPOTYD 


037650 
100004 
037660 


000012 
037670 
000024 


ee ee ee o-oo 
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ee ee ee ee ee ee ee 
A @OONMM VN @ ANN 1) 
ad = 2D Ud Lad Und 9 Ld UT SE Lad mt Bot 


037670 


:? 
sLOCAL TEXT MESSAGES FOR TEST 


"WRITE Command wor oe epted’ 
*EOT Not Found | n 12000 ean urites. (Use Shorter Tape)’ 
"WRITE DATA OVER. EOT GAVE NO TAPE STATUS ALERT’ 
*"TSSR Not Correct After WRITE Command Reject Due To NXM‘ 
*TSSR Not Correct After WRITE To Non-Existent Memory’ 
Rewind ety me Command Not Accepted’ 

Error, Correct Date Pattern Not In Raa’ 
*TSSR init. Failed After WRITE C 
"Drive 7 Select Failed To Set ‘Ore In 
*TSSR Not Correct After WRITE DATA HB, SWB Bit Set’ 
*TSSR Not Correct After WRITE DATA Command, Check For Tape Offline’ 
“CvC Set, Didn’*t Reset VCK In eecese Buffer 
*TSBA Not Correct After WRITE DATA Command’ 
"WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
eASCIZ ‘Basic Write’ 











te Ee eae 
pea Ree font 
G8 Ped Pag Pres PRG PG Ped PRE Ped PG POS 





a ee 
+ 


SROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
“WRITE SUBSYSTEM MEMORY COMMAND 


T23REST: 
SA sSAVE THE REGISTERS 

AE rage Mid * START OF THE PACKET 

#i R1)¢ SWRITE SUBSYSTEM MEM. WITH 

#T2SDATA,(R1)* S OF CHARA 


ACK 

s ISTICS DATA BLOCK 
EX XTENDED ADDRESS 

#10,.(R SIZE OF DATA BLOCK IN BYTES 

aresere, (at + 








sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


s SELECT DRIVE ZERO 
R OF LOCATIONS TO BE CLEARED 






























648: art. T23BFRIR2) SAL ONES TO MESSAGE BUFFER 
DOWN TO NEXT LOCATION 
a2. HH R2 AT ZERO YET 
64$ SKEEP GOING UNTIL DONE 
PC RETURN 
T23RT2: 
sSAVE THE REGISTERS 
#T23PK2,R1 SSTART OF THE PAC 
#100006, (R1)* “WRITE SUBSYSTEM MEM. WITH ACK 
aT2sBF2. (R1)¢ SADDRESS OF DATA BLOCK 
Rt “EXTENDED ADDRESS 


:SIZE OF DATA BLOCK IN BYTES 
:POINT TO DATA SEL AREA 





SEQ 165. 


Nn A EE EH STR ow 


eee eee Sea a 


TEST 





6588 0461414 


CZTUXAO TUBO FRONT END PRT B 
4: BASIC WRITE DATA 


040000 
100005 
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T23RT3: 








Kk 13 
PAGE 98-1 
(R1)¢ 


(R1) 
PC sRETURN 


#T23PK3,R1 
— 





sEXTENDED ADDRESS 
CR1) 3SIZE OF DATA BLOCK 
; RETURN 





110050: 


TRAP 


CSETST 


SEQ 166. 


’ 
ee + ee eee ee ee Ee + eee EE A TTT 


— ——-~— —-— ~ 





CZTUXAO TUSO FRONT END PRT B 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


012737 


—— Se . 


L 13 
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-SBTTL TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


sTHIS TEST 
feng ARI TIONS OF ODD AND EVEN 
sDATA ye RECORD SIZES (UP TO 64K BYTES IF MEMORY 


BUFFER BOUNDAR 
*SPACE 1S AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS Test 
[OF COURSE, FURTHER Sev ERIFIES THE WRITE DATA BY ACTUALLY 






VERIFIES THAT THE Bo FORWARD _ READ 
OPERATE PROPERLY. OUS COMBINA 





















“READING AND VERIFYING WRITTEN DAT TED ARE PROPER 

S TERMINATIONS ON EXCEPTIONAL OR E ONDITIONS: RECORD LENGTH 

:LONG RECORD LENGTH SHORT, READ REVERSE AT AT BOT, ILLEGAL DATA 
BUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 





COMMAND, AND DATA BUFFERS IN NONCERISTANT MEMORY. THE TEST 


; THE TEST CONSISTS OF THE FOLLOWING 12 SUBTESTS 


BGNTST +s 

CLR FATFLG sCLEAR FATAL E: ‘OR FLAG 

CLR KTFLG sHOLD OFF KT11 

MOV #EPRT1 .EPRTSW SET UP PRIMARY ERROR MESSAGE 
CLR KTENABLE TURN OFF pit 

JSR PC .KTOFF TURN K 


MOV #TST241D,RO 
JSR «PC, TSTSETUP 
MOV #1, LOOPCNT 


¢ 
T24L00P: 


T11 OFF 
SASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 

sPERFORM 1 ITERATIONS 


SEQ 167 


; 
ee ee ee 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE 


SEQ 168 | 


















6639 :* 

6640 ; 

6641 ;TEST 5, SUBTEST 1 

664 SVERIFIES THAT READ FORWARD COMMANDS WITH SWB=0 

6644 SOPERATES THE TAPE IS FIRST REWOUND AND THEN 

6645 ;WRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

iL NGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 

6447 IN AND THE RECORD READ SEQUENTIALLY AND RESULTS 

6648 :(STATUS, DATA, ETC.) VERIFIED. THE i TE COUNT ON 

6649 SEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 

6650 sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 

6652 ; 

6653 ; 

6654 : 

6655 = 

6656 poh BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041514 104402 "" TRAP se CSBSUB 

6657 041516 004737 052664 JSR PC, T24RT3 sSET UP OTHER COMMAND PACKET 

6658 041522 004737 052530 JSR PC. T24REST “SET COMMAND PACKET 

6659 041526 004737 052622 JSR PC, T24RT2 >SET UP OTHER COMMAND PACKET 

6660 041532 RFLAGS RO “READ SUPERVISOR FLAGS 
041532 104421 TRAP CSRFLA 

6661 041534 032700 000100 BIT #B1T6,RO sCHECK FOR THE ILS BIT SET 

6662 041540 001002 BNE Ik SET SKIP THE PATCH 

6663 041542 000137 042266 JMP 192$ SPATCH IT OUT 

6665 MOTT ITITIT ITI te iii titiiititiii titi iii 

6667 SISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 

rr s Reeeneerennerererereerecererenreneennennenenaneenenreneeneereneeee 

6671 041546 004737 016630 JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 

6672 041552 103407 Bcs 208 SBR IF INIT WAS OK 

6673 041554 004737 020064 JSR PC, FATCHK [INC AND CHECK FOR MORE THAN 25 ERRORS 

6677 041560 010001 MOV RO,R1 “CONTENTS OF TSSR Ri SISTER 

6678 041562 ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 
041562 104455 TRAP  CSERDF 
041564 000765 .WORD 501 
041566 003550 “WORD SFIERR 
041570 011656 “WORD  SFIMSG 

6679 041572 20S: 

6680 041572 012704 050040 MOV #T24PACKET RG sSUBROUTINE NEEDS PACKET ADDRESS 

prt SRRAAAAARARAAASSAASATAAAASAAAALAAAAHHERAAAAAAAAAAAAAK TATA AAeAeAASS 

6684 WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

rrr) + abeeeerenceecererenereereceeerrenteereensenteeneeeseneeeseneeetete 

6688 041576 004737 010322 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 

6689 041602 103407 acs 24$ “BR, IF COMMAND ISSUED OK 

6690 041604 004737 020064 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 

669% 041610 010001 Ri : brite 






LLL LL 
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SEQ 169 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) | 


eee ee er ee te re er ee ee 












6695 041612 ERRHRD ERRNO,WRIMSG.SFIMSG | ;WRITE CHARACTERIST 
041612 104456 . nee CSERHRD 
041614 000766 WORD 502 
041616 004754 “WORD WRTIMSG 
041620 011656 “WORD SFIMSG 

6696 041622 24$:  CKLOOP SLOOP IF SELECTED 
041622 104406 TRAP - CSCLP1 

6698 seteeeaeeteearererereegereererereaneneenageeneeeeeeeeeneeneeenreree 

6700 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

rth + Seeeneeeeeeeerreeereanerrererenereeennereenteereeneneneerrerreete 

6704 041624 004737 010624 JSR —s- PC, REWIND CALL TAPE REWIND COMMAND 

6705 041630 103407 BCS 6 isé308 “BR, PROBLEM 

6706 041632 010001 MOV —s- RO, RI SAVE TSS 

6707 041634 004737 020064 JSR —s- PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

6711 041640 ERRHRD ERRNO,T24RWN,PKTSSR  ;REWIND NOT ACCEPTED 
041640 104456 CSERHRD 
041642 000767 WORD 503 
041644 051326 “WORD T24RWN 
041646 011670 “WORD PKTSSR 

6712 041650 30$:  CKLOOP SLOOP IF SELECTED 

pace 041650 104406 TRAP  CSCLP1 

tA SRARAAAAAAAAAAAAAAAESAAAERAAAERARARAAAAARRARARAAAAARAARARARARAAAATAEES 

6716 SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 

tat seeeehengrennerenteenrenreereeereneenetenrenneenenereneeeeeeneenene 

6720 041652 013701 050066 MOV -« T24BFR+6,R1 sPICK UP XSTO 

6721 041656 010102 MOV —s«aRIR sSET UP EXPECTED 

6722 041660 052702 000002 BIS  #BIT1,R2 SET BOT BIT IN EXPECTED 

6723 041664 020102 CMP sé R2 ;DOES EXP = REC'D 

6724 041666 0014 BEO 40$ IF EQUAL (OK) 

6725 041670 004737 020064 JSR —s- PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 

6729 041674 ERRHRD ERRNO, T24B0T,EXPREC “TAPE NOT AT BOT AFTER REWIND 
041674 104456 CSERHRD 
041676 00077 TEORD 504 
041700 05104 “WORD 12480T 
041702 016330 “WORD EXPREC 

6730 041704 40$:  CKLOOP SLOOP IF SELECTED 
041704 104406 TRAP  CSCLP1 

6731 041706 012703 000400 MOV —s-«-#256...R3 sRECORD SIZE 

6? 041712 013737 003072 050172 MOV «FREE, T24RB “STARTING WRITE BUFFER ADDRESS 

ers SRAAAAAAAA AAAS AASASAATSAALAA AAAS AAAAAAAAAAAAAAAAEAEAAEAAAAAEEAAASS 

6 

ores WRITE DATA, CVC=1,ACK COMMAND 

6738 ‘eeeenereereaereereeneeerecerereeneareeneeeerenenteeeseenesnaeeeete 

6739 

041720 012737 140005 050170 mov #140005, T24PKS WRITE DATA, CVC=1,ACK COMMAND 
erat bat 726 012704 050170 - MOV s«#T24PK3.R4 SET UP RG WITH PACKET ADDRESS 


‘ 
’ 
' 
a 8 ee 8 ee 














CZTUXAO TUBO FRONT END PRT B 
TEST 5S: BASIC READ DATA (FORWARD AND REVERSE) 


6743 Oe tae gnome 
6744 041 004 020356 
6745 041740 0103357 050176 
6746 041744 bes 2 177776 
6747 041750 004737 017104 
6748 041754 016501 000000 
6749 0641760 012702 000200 
6750 041764 020102 
6751 041766 001406 
orate 041770 004737 020064 
675 
6758 041774 
041774 104457 
041776 000771 
04 5011 
042002 011670 
6759 04 
04 04406 
6760 04 005723 
6761 042010 022703 000414 
6762 042014 001546 
6765 042016 
104406 
6764 042020 
6765 
6766 
6767 
6768 
6769 
6770 
771 
012703 000012 
004737 010424 
010001 
000737 020064 
104456 
000772 
051326 
2046 011670 
104406 
13701 050066 
70 000002 
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MOV R3,RO +5 Y PATTERN IN CORRECT REGISTER 
JSR sFILL MEMORY WITH RECORD SIZE 
MOV T UP RECORD SIZE IN PACKET 






MOV 
JSR 
MOV 
MOV 
CMP 
BEG 75$ 

JSR PC .FATCHK 





F OK 
CHECK FOR MORE THAN 25 ERRORS 
:SOFT ERROR, REALLY CHECKING THE 


STSSR INCORRECT AFTER =. DATA 








ERRSOFT ERRNO,WRIERR ,PKTSSR 











CSERSOFT 
TyORD 505 
“WORD  WRTERR 
“WORD PKTSSR 
75$:  SKLOOP SLOOP IF SELECTED 
TRAP CSCLP1 
TST (R3)¢ sBUMP RECORD SIZE 
CMP -s« #268. ,R3 END OF RECORD YET 
BNE 65$ F MORE RECORDS TO WRITE 
80$:  CKLOOP “LOOP IF SELECTED 
TRAP CSCLP1 
1208: 
SRAAERARAAAAAAALAAALAEAAARAAAKSAAAARERARERAAAAAAKAAAARAAAHRARAAAAEAAAAAARES 
[ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
s Reeeneeneenererenceeenreeeeerereerensenneenrereeeeeneereneeneenere 
mov —s-s«#10..,R3 sSPECIAL MULTIPLE REWIND 
125$: JSR PC, REWIND SISSUE REWIND COMMAND 
acs 130$ : F NO 
mov —s«éRO, at SSAVE TSSR 
JSR —s«PCSF SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ahd Toamans, PKTSSR “REWIND NOT ACCEPTED 
T CSERHRD 
; 506 
“WORD T24RWN 
WORD  PKTSSR 


130$: CKLOOP sLOOP IF SELECTED 


TRAP  CSCLP1 
steenerenereaterereeceereereregeeeagranaggenaenenenanensenereresees 
READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
+ Meeentenereacecereeereeerereeeteneenrenneeenseaceeranronteneeetert 
MOV ss T24BF RG, RY PICK UP XSTO 
ROV SET UP EXPECTED 
BIS eit. R2 SET BOT BIT IN EXPECTED 
CMP R2° “DOES EXP = REC'D 
BEO 1465 BR, IF EQUAL ¢ 





' 
; 
EE 


“4 48 “ i\* y at it 











8795 042072 


681 
681 
681 


042122 
0 042130 
1 042134 
. 042140 
042144 
14 042150 
5 042154 
6 042160 
7 042162 
8 042164 
2 042170 
042170 
042172 
042174 
176 


ett ont amd ach mal 





& 
gee 
: 


E 
e 
rr 
3S 


a 
PERLE 
= 






PETORORD 
NOe 


FEPFF 


Be 


6837 
6838 
6839 
6840 
6841 
oats 
684 

6844 
6845 


004737 
104456 
000773 
051043 
016330 

04406 


1 
012703 
013737 


012737 
0 


104 
013702 
01 


CZTUXAO TUSO FRONT END PRT B 
TEST 5: 


020064 


000400 
003072 


003072 
000400 


7? 020064 


000412 


ccceeeeameee, eas LL 


C 14 
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050172 


050170 


BASIC READ DATA (FORWARD AND REVERSE 


PC .FATCHK 


JSR 
ERRHRD ERRNO, T24BOT .EXPREC 


140$: CKLOOP 


MOV 
MOV 


#256. .R3 
FREE, T24RB 


sINC_AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER = 


«WORD 50 

WORD 124807 
WORD 

sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


CSCLP1 


SRAAAAAAAAAAAS AKASAKA RATAAALASAAAAAAARAARAKAARAAAAETEKRAKATAALAAHALee 


;READ DATA, CVC=1,ACK COMMAND 


s Reaeeeeneeeeererreneeeererrentreenaerenenaneneenrenareneeeteereere 























mov #140001, T24PK3 sREAD DATA,CVC=1,ACK COMMAND 
165$: MOV  #T24PK3.R4 “SET UP RG WITH PACKET ADDRESS 
MOV «RB. T2482 3SET UP RECORD SIZE IN PACKET 
MOV =- R4, TSDB(RS) SISSUE COMMAND 
JSR —s- PC. WALTE “WAIT FOR SSR TO SET 
MOV TSSRIRS) RI [GET TSSR CONTENTS 
MOV - #SSR, R2 “SET UP EXPECTED 
CMP sé SARE THEY EQUAL 
BEQ 4 SBR, IF OK 
JSR _—s PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, RDERR,PKTSSR “TSSR INCORRECT AFTER READ DATA 
TRAP  CSERHRD 
.WORD 508 
“WORD RDERR 
WORD  PKTSSR 
170$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
MOV _—- FREE R2 3GE1 BUFFER ADDRESS 
MOV SCURRENT RECORD SIZE 
SUB «#256. , RG SFIRST LOCATION IN BUFFER 
1738: R2,R4 [GET LOCATION IN BUFFER (ADDRESS) 
(R4&),R3 “CHECK DATA READ (R3=DATA ALSO) 
BR, IF ALL IS WELL 
CR) RI SRECD DATA 
R3,R2 SEXPECTED DATA 
PC. FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, T24DTA,EXPREC “DATA READ NOT = WRITTEN 
TRAP  CSERHAD 
.WORD 509 
"WORD  T24DTA 
808 OOP IF SELECTED — 
1808:  CKLOOP su 
TRAP CSCLP1 
TST (RG)* BUMP TO NEXT LOCATION 
SUB tiéRK2, RG “GET BACK TO CORRECT SIZE 
CAP séRG.RS SEND OF RECORD YET 
BNE 73$ “BR, IF NOT AT END OF RECORD 
TST (R3)¢ “BUMP RECORD SIZE 
CHP 0s: #266... R3 SEND OF RECORD YET 
_ BNE 165$ “BR, If MORE RECORDS TO WRITE 
: cK ar ° . 









SEQ 171 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


042264 104406 
6846 oe 56 192$:  ENDSUB 

042266 104403 
6847 042270 023727 02170 000031 CMP FATtLG,#25. 
6848 042276 BLT 
6849 042500 0047357 020136 JSR PC .CKDROP 
6850 042304 999$: 


me ee eee 








TRAP CSCLPI 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
10687: 

CSESUB 
:1S ERROR COUNT AT 25 
on If LESS THAN 2 
TO DROP THE UNIT 


SEQ 172 


——— 





= eee»  arrsrsrrmhnmna—:—_— rer nares 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) | 





:¢ 


STEST 5, SUBTEST 2 


;VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE 
;SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 

; SEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

THE RESULTS. EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 









BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
TRAP CSBSUB 
052664 JSR PC, T24RT3 sSET UP OTHER COMMAND PACKET 
052530 JSR PC, T24REST sSET COMMAND PACK 
052622 JSR PC .T24RT2 :SET UP OTHER COMMAND PACKET 


SISSUE CONTROLLER "SOFT INITIALIZE - CARRY BIT CLEAR IF ERROR 


os 
e 
SAHAHAASSAASASAAKAAAAAAAATALATeTAAKAAKAKAAeeRARaeKgeaeagargenageaweseses 


7 016630 JSR —s- PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
acs Bk IF INIT WAS OK 
020064 JSR —s- PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV "Rr “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG | :FATAL ERROR TSSR WAS NOT ines 
WORD 510 
“WORD SFIERR 
jn “WORD SFIMSG 
050040 "MOVs @TQGPACKET, RG sSUBROUTINE NEEDS PACKET ADDRESS 


SARHKKAAASASTHLSKSSEKASKAAAS AS TEKAAAAAKAAKRAAAAAUARARAAAAAATAAsAeeANs 


“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHA) 


* 
SRARHAHAAAAAAATSSAARTTELALAAASSHHHAAAAAAAARAAAAAAAKAAAAAHAAAHATAAES 











7? 010322 JSR «PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 24$ :BR, IF COMMAND SUED 
020064 JSR  —s- PC, FATCHK > INC FOR MORE THAN 25 ERRORS 
mov —s«RO, RT SAVE C 





ONTEN 1s OF TS 
ERRHRD ERRNO,WRIASG, SF IASG WRITE CHARACTERISTISC ‘oy 





4$: CKLOOP sLOOP IF SELECTED 7 
. ’ TRAP = CSCLP 1 
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SEQ 174 









os s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
o PIITITI ITI titi iti Ti ii iiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiit 
6908 042400 0047357 010424 JSR PC, xEWIND sCALL TAPE REWIND COMMAND 
6909 0424604 103407 BCS 30 sBR, IF NO PROBLEM 
6910 042406 010001 MOV RO, - ; 
6911 042610 004737 020064 JSR PC, FAT SINC AND CHECK FOR MORE THAN 25 ERRORS 
6915 042614 ERRHRD ERRNO, T2GRWN, PKTSSR REWIND NOT ACCEPTED 
Satis uae | 
Sa 
042422 011670 
6916 042424 30S: CKLOOP sLOOP IF SELECTED 
oni7 042424 104406 
rtd SRSTKAKAAAASARATHAAAEKAAAATEATAAAAAAAAKRKAAAKAKRAKAKeeeAeAeeeeAReaeene 





SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


& 
° 
3 SHAAAAASAKRAARAASTAASKTAAAEKRSKRAKLAEKALAARARTAARAAAERAAAAARARARAAAAAEAEeeee 


S888 















69 
4 013701 050066 T24BFR*6,R1 PICK UP xSTO 
6925 01010 P SET UP EXPECTED 
69 052702 000002 @BIT1,R2 :SET BOT s" IN EXPECTED 
020102 R1,R2 _ EXP = REC'D 
1406 & . If EQUAL (OK) 
69 004737 020064 PC FATCHK 3 INC AND CHECK FOR MORE THAN 25 ERRORS 
69 ERRNO, T24B0T , EXPREC sTAPE NOT AT BOT AFTER = 
104456 CSERHRD 
1001 "WORD $13 
1043 “WORD T24B0T 
016330 -WORD EXPREC 
408: CKLOOP sLOOP IF SELECTED 
oor TRAP CSCLPI 
Hf 1A: 000400 MOY #256. ,.R3 sRECORD SIZE 
69 013737 003072 050172 MOY FREE, T24R8 > STARTING WRITE BUFFER ADDRESS 
peed SeReeeeeaeagreceeeeere#eereeeseeseaagaraeaeeeskeedeeageangeageeeeenere 
6939 : 
6940 SWRITE DATA, ACK.SWB.CVC=1 COMMAND 


¢ 
bs STHKSASSAASSASKSSASSALSAASHSASSAAARSSAAKRAKAAKRAAAAASAAAAAASAAAAETEESS 


#150005 , T24PKS sWRITE DATA, ACK,SWB,CVC=1 COMMAND 
ST24PKSR4 SET UP R& WITH PACKET ADDRESS 


sSET PATTERN IN eH REGISTER 
FILL MEMORY WITH RECORD SIZE 
UP RECORD SIZE IN PACKET 


01 ed 050170 
012704 
65$: 









TSSR(RS) AI 
#SSR,R2 


mi Re 


FATCHK 





Soe Goo: he 
$938588c8 3 





EL EO A - 


- ~~ ee ee  - 


_ A ccc CC LL GLA ALLL AL LOE IE 


Eee ee ~ “ee 


CZTUXAO TUBO FRONT END PRT B 
TEST 


yore of ts 24 


SSSS3S353532 82 


3 33 5 


tad nd od od 
CrNRSoSo 





04 
04 
04 
04 
04 
04 
04 
04 
04 


S2333323332823 2 


Sse 2 
URI 
SF ene ~ 


104457 
001002 
005011 
011670 
104406 
005723 
022703 
001346 
104406 


013701 
02 


8 


7? 


MACRO 


000414 


010424 


020064 





1200 
5: BASIC READ DATA (FORWARD AND REVERSE) 


29-MAR-B3 15:32 PAGE 102-2 


sSOFT ERROR, REALLY CHECKING THE 


ERRSOFT ERRNO, WRTERR,PKTSSR TTSSR INCORRECT AFTER WRITE DATA. 











TRAP 
-WORD 
- WORD 
.WORD 
75$: CKLOOP LOOP IF SELECTED — 
TST (R3)¢ sBUMP RECORD SIZE 
CMP #268. .R3 SEND OF RECORD YET 
GNE 65$ :BR, IF MORE RECORDS TO WRITE 
80$: CKLOOP LOOP IF SELECTED 
T CSCLPI 
120$: 


SRASAAAAASASAAAAAKAASAAKA KARAS AAAAAAAAAKAAAOKKRATARAKAAAAAAAAAAAKE TE 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


* 
° 
FAAAAAAAASRAARAASAAASAAASAALA KALLA AAAAAAAHRAARAARAAAAAEKAAAAAAAAAAAAAS 











JSR «PC. REWIND SCALL TAPE REWIND COMMAND 
BCS 1308 “BR, IF NO PROBLEM 
MOV —s._-«RO, RI : 
JSR —s- PC. FATCHK "INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TOGRUN, EXPREC /SREWIND NOT ACCEPTED 
TRAP  CSERHAD 
.WORD 515 
“WORD  T24RWN 
“WORD EXPREC 
130$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 


SRAAAAAAHAAKAATAATSHRALASHAAAAAATHAAEAAAEAHERARAAAAAAAAARAHAREANTAHAES 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


4 
steererrenererrereeeeeereeeereeereeakaegereesenangeaagenaganeneases 


T24BFR*6,R1 sPICK UP XSTO 










R1,R2 sSET UP EXPECTED 
BIS #BiTi ,R2 sSET GOT BIT IN EXPECTED 
CAP R1 .R2 S EXP = REC'D 
BEQ 1 BR, IF EQUAL (OK) 
PC.FA + INC AND CHECK FOR MORE THAN 25 ERRORS 






JSR 
ERRHRD ERRNO. 126801 ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
RAP CSERHRD 
516 
T24B0T 
EXPREC 





1408: sLOOP IF SELECTED 

a TRAP = CSCLP I 
RCV #256. R53 , sRECORD SIZE 
ROV FREE, T24RB ;STARTING READ BUFFER ADDRESS 


ee 


SSHAAHARAAASSS TASHA AASAASALAALSAATHLASHAASSAAANTAARARASSSAANASAAASSSSSS 


SEQ 175 


CZTUXAO TUSO FRONT END PRT B 


TEST 5: 
7 






233s | 
33 





BSOrnOwuluno 
~ 
= 


PEREECEEEEEe 
FRRELSRELLSLS 


Wa 


FESESE 
° 


PRRLSLLLLLLLLE g 
= SseSe 238 
3 3 3 § & Ssse 3 


weds orf cov ond 
COkFMwS 


sess € Eeeerere & 


104406 
013702 
010304 


110001 050170 
050170 


050176 
17777 

017106 
000000 
000200 


020064 


0035072 
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0”0031 


BASIC READ DATA (FORWARD AND REVERSE 


SREAD DATA, JE,ACK,SWB CORMAND 


om re ee ae ere ee 


SSSSSSKASASAASSSSASTHSAAAASEALAAKSLAAAAAAARAKAAARAAKeAAARAReeeeeeageeeee 


MOV #710001 .T26PK3 
165$: MOV #T24PK3,R4G 
ROV RST 2482 
MOV né, TSDB(RS) 
JSR PC.WAITF 
MOV TSSRCRS) RI 
MOV #SSR,R2 
Ri, RE 
BEO 17 
JSR PC, FATCHK 
ERRHRD ERRNO, RDERR,PKTSSR 
170$: § CKLOOP 
MOV FREE ,R2 
MOV R3.R4 
SUB «#256... R4 
1738: ADD ” 
CMP (RO), R3 
BEO 1 
MOV (R4) RI 
MOV —s-«R3R2 
JSR PC. FATCHK 
ERRHRD ERRNO, T24DTA.EXPREC 
180$:  CKLOOP 
TST (RG)+ 
CMP set) 
173$ 
TST (R3)¢ 
8266. .R3 
165$ 
190$:  CKLOOP 
ENDSUB 
cmp FATFLG,#25. 
BLT 
JSR PC, CKDROP 
999$: 








SREAD DATA, IE.ACK,SW8 COMMAND 
[SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 


COMMAND 
SWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 








sINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER = : 


eWORD 517 

«WORD RDERR 
PKTSSR 

CSCLP1 









sLOOP IF SELECTED 
GET BUFFER ADDRESS 
URRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 
sGET LOCATION IN BUFFER (ADDRESS) 
= CHECK DATA aa ALSO) 


RECD DATA 
sEXPECTED DATA 
sINC AND CHECK FOR MORE THAN 25 ERRORS 

DATA READ NOT = WRITTEN ’ 








CSERHRD 
WORD 518 
WORD TZ24DTA 
WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


sBUMP TO NEXT LOCATION 
SET ig BA CORRECT VALUE 








; CORD Y 
*BR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
CSCLP1 
3>>>>>>>>>>>> ma eed >>>>>>>>>>>> 


CSESUB 





TRAP 
31S ERROR ag AT 25 
;BR, IF LESS THAN 25 

;TRY TO DROP THE UNIT 


SEQ 176 


—— —<— 


EE TT 


-— -- 


SA a TUSO FRONT END PRT B 


TEST 
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BASIC READ DATA (FORWARD AND REVERSE) 


052664 
052530 
052622 


7 016630 
020064 


050040 


010322 
020064 


26 


TEST 5, SUBTEST 5 


: VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
iM alt Ser TERMINATION WITH THE RECORD LENGTH LONG 








EGNSUB 3>>>>>>>>>>>> ee >>>>>>>>>>>> 
ea: 
TRAP csesue 
JSR PC, T24RT3 sSET UP OTHER — PACKET 
JSR PC. T24REST sSET COMMAND PA 
JSR PC, T246RT2 :SET UP OTHER CORMAND PACKET 


FAASAASSAAAAARAAAAAAAAAAATEKAATSSAAAAAAAAAALARAAAAAAAAAAAAKAAAHAATAS 


[ISSUE CONTROLLER "’SOFT'’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


a 
@ 
SSHASAAAAAASTEAAAAAASAAKAAAAAERATAAAAAAAARERARAAHAHAAHAAAAAALARAARS 


JSR PC SOF INIT sD0 INITIALIZE ON CONTROLLER 

BCS 208 sBk IF INIT WAS 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV oR SCONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
T CSERDF 
WORD 519 
WORD SFIERR 
WORD SFIMSG 





208: 
MGV ST24PACKET RS sSUBROUTINE NEEDS PACKET ADDRESS 


SRAAASSAAAAAATHAAAAAAATATHAALAAAEAAAAARAKAAAAAKTAAKAKAAAAAAALAHAES 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


@ 
@ 
SREKHAKSRRALAAASERASSTAAAAASAAAAAAAAHAAAAARAHAAAAAEAAAAAAASSLAAAAAES 


JSR PC ,WRICHR sISSUE WRITE CHARACTERISTICS 
Bcs LS sBR, IF C 
JSR PC. FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 


MOV : >SAVE CONTENTS OF TSSR 
ERRHRD ERRNO.WRIASG, SF IASG SWRITE CHARACTERISTISC — 






CSERHRD 
"GORD 520 
WORD WRIASG 
-WORD SFIMSG 





248: CKLOOP sLOOP IF SELECTED 
TRAP = CSCLP1 


SEQ 177 





TEST 5: 
7107 
7108 
7109 
10 
7111 063146 
aa 043152 
71135 063154 
7116 063156 
7118 goats 
0431 
043164 
043166 
0431 
7119 043172 
0431 
7120 
Ay 4. 
71 j 
7126 
7125 
7126 
as 043174 
7128 04 
7129 04 
7130 04 
7131 06 
7132 04 
7136 04 
04 
Of 
7137 04 
04 
. 04 
04 
40 
rt 
<3 
4s 
45 
46 


a 


YIVYIVIIIIYIIIIIIIII2> 
RIVSERFUNYLSSHN 


PRLSPLRLLE 
Seesseeoeae 
3 nae 


104406 
012703 
013737 


012737 
012704 





CZTUXAO TUSO FRONT END PRT B 


010424 


020064 


000 
003072 
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050172 


050170 





J 14 


| re ee me ee ee 


SEG 178 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


JSR 
BCS 


ERRHAD ERRNO, T2GRUN, PKTSSR 


CKLOOP 


PC ,KEWIND 
308 


RO, pane 
PC FAT 


sCALL TAPE REWIND COMMAND 
PROBLEM 


SAVE T 
INC AND CHECK FOR MORE THAN 25 ERRORS 
“REWIND NOT ACCEPTED 
TRAP CSERHRD 








SRAAKAASKRANAAAAAESSAAKAHATHAKASAAAKAAAKAAAARAKAHAAAAAAAHAHAHAAAAAAED 


“READ MESSAGE SUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


° 
# 
SRARSAAAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAARAAARARAARHAAHARAAAAAAAAAAES 


40$: 






T24BERS6,RI 
#BiTi,R2 
R1,R2 








PC .FATCHK 


ERRNO, T24BOT .EXPREC 


#512. .R3 
FREE, 1248 


«WORD 521 
WORD T24RUN 
PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
;SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
2D DOES EXP = REC'D 
FE (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 
TRAP SERHRD 
«WORD 2 
eWORD T24B0T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
SSTARTING WRITE BUFFER ADDRESS 


SRARSSHHAHAAKSSAASTASSAAAASSAATSERAAAKLAAAEAAAAARAEARAARAAAARAAALSHKAAAAAAESE 


“WRITE DATA,ACK,CVC=1 COMMAND 


. 
sdeereterarerererereeeereereseeeegeeeeegenaneneengeneergegeeeeesene 


hr ead Be oT24PKS 


PKS .R4 


R3,12482 
R4, = 


TSERCRS) RI 
@SSR,R2 
1 Re 


PC .FATCHK 


sWRITE DATA,ACK,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 


3SET UP RECORD SIZE IN PACKET 
“WAIT FOR SSR TO SET 


:GET TSSR CONTENTS 
:SET UP EXPECTED 








sBR, IF OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
A srry Ay ne aed 





7163 043310 
043310 
04 
04331 
043316 
7164 043320 
hy 043322 


7167 
71 


7185 


043350 


co 





FELFS 


IIVIIISIS3IS3IS>3 
SRALSLESESE 





a 
3 
FELSEES 
on 


SReRSSsaaet 


FF 


Yor 
703 
7203 
7207 
7209 


DY 
2 


104457 
a¢ 001015 


005011 
011670 
104406 





CZTUXAD TUBO FRONT END PRT B 
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010424 


020064 


050066 
000002 


020064 


000400 
003072 


ee EL LLL eee —_—_—ee—— - — 
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050172 





BASIC READ DATA (FORWARD AND REVERSE 


75$:  CKLOOP SLOOP IF SELECTED 
TRAP —- CSCLP1 
1208: 
SRSEAAAAAAAAAAAHAAKATAAAASAHLAAAAAAAAAAKAAAAAAAAKAV RATA AeRAReAeeeees 
“ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
+ Reeeneneneeeerererrereeerereerenenentreneennerareereneneneeenetes 
JSR —s- PC, REWIND ;CALL TAPE REWIND COMMAND 
acs 130$ F NO PROBLEM 
MOV _—s_ RO RI TSAVE TSSR 
PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 


130$: 


ERRSOFT ERRNO ,WRIERR ,PKTSSR sTSSR INCORRECT AFTER we Feat 





JSR 
ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED 





CKLOOP sLOOP IF SELECTED 


TRAP 


SRARAAAATAAAAAHAAAAAAARAKAAAAAAAAAAAAAAAAAAAREAAAAAAAAARARARAAAAANES 


SREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 


s 
SRARAAAAAAHSTSTAAESSSSAESAAAATALALAAAAAALAAAAALAAKAAAAREKAREAAAAAAAES 


' 1408: 















MOV T24BFR*6,R1 sPICK UP xSTO 

MOV , SET UP EXPECTED 

BIS #B1T1 ,.R2 :SET BOT BIT IN EXPECTED 

CMP R1 R2 sDOES EXP = REC'D 

BEG 14 IF EQUAL (OK) 

JSR PC ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T24B0T .EXPREC ;TAPE NOT AT BOT AFTER Bg iry 
"GORD 
~ WORD 
WORD 

CKLOOP sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 


MOV #256. R35 
;STARTING READ BUFFER ADDRESS 


MOV FREE ,T24R8 


steeeeeerecerereeerereeerereeeeeesrerasaneeseeeanenaaaesaaasensess 


[READ DATA,ACK,CVC=1 COMMAND 


a 
* 
seeeeeerecererececereecerseceseeesereeeeeneseneeasegreseaeeneeaenes 


165$: 








Php ep ad oT24PK3 sREAD DATA,ACK,CVC=1 COMMAND 


Jt 





CSCLP1 





SEQ 179 | 


L 14 
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SEQ 160 





















7211 043430 010337 050176 SCV R3,724$2 sSET UP RECORD SIZE IN PACKET 
rele oo etis 010465 177776 MOV R4, TSDB(RS) s ISSUE C 
72135 04 006737 017104 JSR ° sWAIT FOR SSR TO SET 
7214 og ret 016501 000000 MOV TSSRCRS) RI sGET TSSR CONTENTS 
15 043450 012702 100204 MOV #SSniSc!B1T2,R2 sSET UP EXPECTED 
16 043454 020102 CMP R1,R2 sARE THEY EQUAL 
17 7g ree 001406 gEQ sBR, IF OK 
7218 04 004737 020064 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7222 043464 ERRHRD ERRNO, T24TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
043464 1044 TRAP 
043466 001016 . 
043470 052374 4 T246TRL 
043472 011670 PKTSSR 
7223 043474 170$: CKLOOP sLOOP IF SELECTED 
7226 04 104406 TRAP CSCLP1 
7225 steeeereeeanerererererereerereeetereneenaneeaenenennenrereeeneerene 
7226 : 
Cs 14 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
7229 + Reeeneaneennerererecerereerenerenenneenenneneereneenereneerentere 
7230 
7231 063476 013701 050066 MOV T24BFR*6,R1 ;GET MESSAGE BUFFER 
res 043502 010102 MOV R1, sSET UP EXPECTED 
7235 043 052702 010000 BIS #B1T12,R2 sSET THE RLL BIT IN EXPECTED 
7234 043510 020102 CMP R1,R2 sARE THEY EQUAL 
7235 043512 001406 BEQ :BK, IF EQUAL (ALL IS WELL) 
043514 004737 020064 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7240 043520 ERRHRD ERRNO,T24LON,EXPREC sTHE RLL BIT WAS NOT SET IN XSTO 
0435 104456 TRAP CSERHRD 
043522 001017 é 27 
043524 052142 «WORD T24L0N 
0435 016330 -WORD EXPREC 
7241 0435 180$: 
7242 0435 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
poettes L10061: 
043530 104403 TRAP CSESUB 
7243 043532 023727 002170 0000351 CMP FATFLG,#25. :1S ERROR COUNT AT 25 
7244 043540 00240 BLT 9998 BR, IF LESS THAN 25 
7245 043542 004737 020136 JSR PC, CKDROP sTRY TO DROP THE UNIT 
7246 0435546 9998: 


— -_—-— 


—_—<-—- 


—_—_— 








CZTUXAO TUSO FRONT END PRT 6B 





Le ee ee — 


M14 
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TEST 5: BASIC READ DATA (FORWARD AND REVE 


7265 043546 
043546 





043546 
7266 043550 004737 052664 
7267 043554 004737 052550 
043560 004737 052622 


ete 
7276 043564 004737 0166350 
043572 004757 020064 


3600 
043600 104455 
ee 001020 
003550 
04 011656 


7285 043610 012704 050040 


S 
& 


PEPRELLEL 
Seses 

35z 

Pee 3 


see 


? 010322 
020064 








+ 


;TEST 5, SUBTEST 4 
:VERIFIES THA THAT A READ 









FORWARD COMMAND READING A RECORD 
Pi tent eat A COUNT S$ TAPE 








BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
"TRAP CSBSUB 
JSR PC, T24RTS cae UP gl COMMAND PACKET 


JSR PC, T2GREST T COMMAND PACKET 
JSR PC, T24RT2 SET UP OTHER COMMAND PACKET 


SRAAARAAHAAARAAAALAATAAA STATA AAAALAAAAARAAHRAAAAARAAAKAAKRAAHAKAARAARAAET 
SESSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 
+ ReeneeeeeeneeerederererrrecrenenerneneneReeereneeneenenteeteenente 
JSR —s- PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCS SBR IF INIT WAS OK 
JSR —s- PC, FATCHK FOR MORE THAN 25 ERRORS 


sINC AND CHECK 
MOV P SCONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS aa OK 





CSERDF 
eWORD 528 
WORD SFIERR 
WORD SFIMSG 


208: 


MOV #T24PACKET RG sSUBROUTINE NEEDS PACKET ADDRESS 


SRAAAAAAASAAAAS ALAS ALATA HSE AAAAAAAAEERERARAAAALEATAAAATAEH EATS 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


e 
SRARAALAAAAAAAKAAASAAAAAA TSA LAATAAALAAAERAAAAKAASAAAKASAAARAATAATS 








JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 

BCS 24$ sBR C 

vSR PC. FATCHK : INC AND ote FOR MORE THAN 25 ERRORS 
MOV RO.R1 SAVE CONTEN R 





° NTS OF TSS 
ERRHRD ERRNO, WRIMSG, SF IMSG SWRITE CHARACTERISTISC ‘oy 





CSERHRD 

WORD 529 

“WORD  WRTMSG 
IRD __SEIMSG 


oa 








SEQ 181 


A TT 


N14 


MACRO a ‘te 13:32 PAGE 104-1 sii | 


CZTUXAO TUBO FRONT END PRT B 





TEST 5: BASIC READ DATA (FORWARD AND RE 
7301 043640 243: CKLOOP sLOOP IF SELECTED 
7302 043640 104406 TRAP CSCLP1 
Le seeeeneeeenearereceeereerererereneanenagreneernraeeereneerenenenere 
7305 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
’ 
£ SASS ASAASAAAAAAAAAASAAAAAAAAA ALARA RARARAAKAAALAAHEAAKAHATAAATRAAHAAAAS 


04 004737 010424 JSR PC REWIND sCALL TAPE REWIND COMMAND 
10 hres 103407 8cs 308 sBR, M 
11 50 010001 MOV ROR sSAVE TSSR 
12 063652 004757 020064 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7316 045656 ERRHRD ERRNO, T24RWN, PKTSSR 3REWIND NOT ACCEPTED 
043656 104456 CSERHRD 
043660 001022 530 
043662 051326 T24RUN 
3664 011670 PKTSSR 
7317 063666 CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
1 012703 0004 56. R35 sRECORD SIZE 


043670 00 #2 
739 043674 015737 005072 050172 FREE, T24RB SSTARTING WRITE BUFFER ADDRESS 


8 
9 
: SRAARAAAAAAAAAASAATAEAALARALAAAAAAARAAARAAARARAAAAAAAHAERAAAKRARAERARAES 


7 3 SWRITE DATA,ACK,CVC=1 COMMAND 
7 5 s Qeaneeeeneeaneeereereneneeererereneenenneneeneneeeneneereeeeneenes 
7 
73 $ 043702 012737 140005 050170 MOV #140005, 124PK3 SWRITE DATA, ACK,CVC=1 COMMAND 
7328 04 710 012704 050170 aie MOV #T24PK3,R4 “SET UP R4 WITH PACKET ADDRESS 
7 be 714 010337 050176 MOV R3,124S2 ;SET UP RECORD SIZE IN PACKET 
7331 043720 010465 177776 MOV na. TSDB(RS) 
04 726 7? 017104 JSR PC.WALTE SWAIT FOR SSR TO SET 
; 016501 MOV TSSRCRS) RI SGET TSSR CONTENTS 
734 012702 000200 MOV = #@SSR,R2 SSET UP EXPECTED 
7335 043740 020102 CMP R1,R2 SARE THEY EQUAL 
? 7% 14 BEQ 75 “BR, IF OK 
744 004737 020064 JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
1 ;SOFT ERROR, REALLY CHECKING THE 
? ; *READ DATA COMMAND 
734 04 750 ERRSOFT ERRNO,WRTERR,PKTSSR “TSSR INCORRECT AFTER WRITE DATA 
750 104457 TRAP  CSERSOFT 
04 00102 .WORD 531 
005011 7 URTERR 
011670 , PKTSSR 
75$:  CKLOOP SLOOP IF SELECTED 
04 104406 TRAP  CSCLP1 
043762 1208: 


SReAAARAS AeA ee eeeeeeeeLeeeeeeeeeeeeaeaeeaaeeeweeeaewaeaeagaweeeasaeasesasses 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


4 
seeeeeeeeeereeeeeeereeeerereecerereseeseeseneeseaseseaeaseseseesees 





ee er ee re ee ee 





CZTUXAO TUBO FRONT END PRT 6 
TEST 5: 


7353 043762 


54 045766 
55 043770 01 
56 04 


56 
001024 
051326 
011670 


1 
0127 
013737 





010424 


020064 


001000 
003072 


012737 Aspens 





050066 
040000 


ee ee 
eo 
oo 
om we 
i=] 


Prereperer iiss 


ESEPPESESEEEE 





3 
26 
a 





MACRO M1200 29-MAR-83 15:32 
BASIC READ DATA {FORWARD AND REVERSE) 


050172 


050170 


PAGE 104-2 


JSR PC REWIND CALL TAPE REWIND COMMAND 
1368 F NO PROBLEM 








BCS ; : 
MOV —s._-«aRO RI : 
JSR —s« PF FATCHK SINC AND CHECK FOR WORE THAN 25 ERRORS 
ERRHRD ERRNO, T24RWN,PKTSSR | REWIND NOT ACCEPTED 
TRAP CSERHRD 
.woRD  § 
“WORD T24RWN 
WORD PKTSSR 
130$:  CKLOOP sLOOP IF SELECTED 
TRAP - CSCLP1 
Mov = #512..R3 RECORD SIZE 
MOV = FREE. T24RB SSTARTING READ BUFFER ADDRESS 


SREAD DATA,ACK,CVC=1 COMMAND 


& 
@ 
SAAAAAAAAAARAAAASSSSAAAATAAAAAAARARARARAAARAARARAAAARAARAEAAAAAARAAEE 








MOV #140001 , T24PK3 sREAD DATA,ACK.CVC=1 COMMAND 
165$: MOV #T24PK3,R4 sSET UP R& WITH PACKET ADDRESS 
MOV 4 T24 $2 SET UP RECORD SIZE IN PACKET 
MOV R4, TSDB(RS) 31S COMMAND 
JSR PC WAITF sWAIT FOR SSR TO SET 
MOV TSSR(RS), Ri GET TSSR CONTENTS 
MOV #SSRISC!BIT2,R2 3sStT EXPECTED 
ace R1,R2 SARE THEY EQUAL 
JSR PC ,FATCHK 3 IN NC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24TRL.EXPREC TSSR INCORRECT AFTER READ - A 
TRA gagnnno 
NORD 3 
“WORD T24TRL 
-WORD EXPREC 
170$: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 
seeeeeeeerenerereererearerersereeeenerenenteenseneenereneeneenerere 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
s Meeeeneeeaceeerererreereerererrenteeereereenenenrenteanenerenteee 
T24BFRe6 R1 sGET MESSAGE BUFFER 
R1,R2 sSET UP EXPECTE 
#BiT14 ,.R2 :SET THE RLS BIT IN EXPECTED 
R1R2 sARE THEY EQUAL 
BEOQ 1 :BR, IF EQUAL (ALL IS WELL) 
JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24LOP ,EXPREC : THE RLL BIT WAS NOT SET IN XS70 
TRAP CSERHRD 
«WORD 
-WORD T24L0P 
-WORD EXPREC 
180$: 
' T24BFR*<6.R1 “PICK UP & IAL & ' aoe aan 


see 1s] 


LLL LLL 


’ 
oo 


CZTUXAO TUBO FRONT END PRT 6 
TEST 5: 


7405 pee brn 





7408 044150 
7412 064154 
044154 
044156 
044160 
044162 
7413 044164 


SSSSSF 


Pere 
35 





AT Ly 000400 


20102 


7406 044144 
7407 044146 001406 


004737 020064 


104456 
001027 
052306 
016330 
104406 
104403 
gears 602170 000051 


00240 
004737 0201356 


a es ‘See 13:32 
BASIC READ DATA (FORWARD AND REVERSE 





190$: 


c 15 


PAGE 104-3 
MOV #256. oR2 
CMP R1,R2 
BEQ 
JSR Pe .FATCHK 
ERRHRD ERRNO, T24PBP,EXPREC 
CKLOOP 
ENDSUB 


CMP FATFLG,#25. 
BL 


JSR PC .CKDROP 


THIS SHOULD BE THE to ats 


IS THE DIFFERENCE CORRECT 
sBR. ORRE 





;RBPCR NOT CORRECT 


sLOOP if SELECTED 





FC ct 
INC AND CHECK FOR MORE THAN 25 ERRORS 
TRAP 





RAP CSCLP1 
3>>>>>>>>>>>> et oe >>>>>>>>>>>> 


TRAP 
:1S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


CSESUB 


SEQ 184 





CZTUXAO TUSO FRONT END PRT B 


EEE al er et rm mm 


dD 15 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


052664 
7434 044212 004737 052530 
7435 044216 004757 052622 


016650 
004737 020064 


4 
og +4 044246 012704 050040 


745 

745 

7454 

7455 044252 004737 010322 
ts 103407 

op 004737 020064 


010424 
7? 





:¢ 
sTEST 5. SUBTEST 5 
VER IFIES THAT READ REVERSE COMMANDS WITH SwB=0 
PROPE THE TAPE 1S FIRST wot AND THEN 








RATES RLY. 
WRITTEN WITH A SERLES - TEST RECORDS V N 
TA CONTENT. i TAPE IS THEN READ IN REVERSE 


: WE RESULT 

:(STATUS, DATA, ETC.) VERIFIED. BYTE COUNT ON 
EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 
sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 








BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


C$BSuUB 


TRAP 
JSR PC ,T24RT5 mt UP OTHER a PACKET 


JSR PC, T24REST sSET COMMAND PACKE 
JSR PC ,T24RT2 ;SET UP OTHER COMMAND PACKET 


; eanenereneeencenrereererereererereenneenenenttnenenenuenteneeenete 


—_ CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS 2 sBR IF INIT WAS OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
SCUNTENTS OF TSSR REGISTER 


MOV oR 
ERRDF ERRNO, SFIERR,SF IASG FATAL ERROR TSSR WAS NOT OK 


TRAP CSERLF 
eWORD 536 

WORD SFIERR 
WORD SFIMASG 


#T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


seeeeneenacenscensenneesvesneusenennnnasunsennnasensnensaneessnees® 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


< eeeneneneneecceeeeeneeeeecereeeeerenenaeerenenneenenneneenteeeeses 


JSR «PC WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 24$ BR, IF COMMAND ISSUED OK 
JSR _—s- PC, FATCHK SINC CHECK FOR MORE THAN 25 ERRORS 


MOV ° ONTENTS OF TSSR 
ERRHRD ERRNO,WRIASG, SF IASG WRITE CHARACTERISTISC tony 





CSERHRD 
. 537 


: WRIASG 
«WORD  SFIASG 
CSCLP1 





2468: CKLOOP sLOOP IF SELECTED 
seeeeeenrenceceereerererrrereererenanarereanereneerareeneereneneets 


3 ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


+ eteeerenecerececeneeceeerereerereenenteneeneeerereeneneeneneesenet 


JSR PC, REWIND CALL TAPE REWIND COMMAND 
Bcs 308 :BR, IF NO PROBLEM 









SEQ 185 | 


E 15 


CZTUXAO TUBO FRONT END PRT & MACRO M1200 29-MAR-83 13:32 PAGE 105-1 see | 


TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 











7472 044310 004737 020064 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7476 044314 ERRHRD ERRNO, T24RUN,PKTSSR SREWIND NOT ACCEPTED 
0443514 104456 TRAP CSERHRD 
044316 001032 WORD 538 
044320 ep T24RWN 
044322 011670 PK*SSR 
7477 046 re 30S: CKLOOP sLOOP IF SELECTED escupt 
6 ot4703 000400 MOV #256. .R3 sRECORD SIZE 
2 005072 050172 MOV FREE ,T24RB sSTARTING WRITE BUFFER ADDRESS 









£ SAAASAAAAAAASAAS ASST AALA SAA TAAL AARAARAKRAAALALAKRARKAKRAKAKAARARAAHALE 


swRITE DATA,ACK,CVC=1 COMMAND 


PITTI titi titi tii iitiiitiiiiiiiiiiiiiiiiiiiiiiiiiiih 


012737 140005 050170 MOV rhb spat oT24PKS oT DATA,ACK,CvC=1 C 








OMMAND 
050170 MOV UP R& WITH PACKET ADDRESS 
65$: MOV R3, SET PATTERN IN CORRECT REGISTER 
020356 JSR «PC. FILLER SFILL MEMORY WITH RECORD S12 
050176 mov —s«aR'S. T2482 'SET UP RECORD SIZE IN PACKET 
177776 MOV —s-R&, TSDBCRS) SISSUE COMMAND 
7 017106 JSR —s- PC. WAITF “WAIT FOR SSR TO SET 
000000 MOV TSSRCRS) RI “GET TSSR CONTENTS 
000200 MOV  #SSR,R2 SSET UP EXPECTED 
CHP sé SARE T 
BEG SBR, IF OK 
020064 JSR —s PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
SOFT ERROR. REALLY CHECKING THE 
“READ DATA COMMAND 
ERRSOFT ERRNO, WRTERR,PKTSSR “TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERSOFT 
eWORDB 539 
“WORD WRTERR 
“WORD PKTSSR 
75$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
TST (R3)+ :BUMP RECORD SIZE 
000614 CMP 0s «s«#268...R3 SEND OF RECORD YET 
BNE 65$ SBR, IF MORE RECORDS TO WRITE 
80$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
TST -(R3) sSET BACK TO 512. 
003072 050172 MOV —s- FREE, T24RB SSTARTING READ BUFFER ADDRESS 


jeeneenenenccenceneeroceeeseccensceansanananssnantanennanssenssens 


SREAD REVERSE DATA,ACK COMMAND 


s enecencnnencecerneeeereeecertennecnnenencesnneccesereneeneeseees 
050170 ROV 8100401 , T24PK3 sREAD REVERSE DATA,ACK COMMAND 
165$: #T24PK3,RG sSET UP R4 WITH PACKET ADDRESS 
RS. 1268 SET UP RECORD SIZE IN PACKET 
SS el s ISSUE COMMAND 
sWAIT FOR SSR TO SET 


E 











COeneuwF uno 


ee ee ee ee ee ed 





Epp r eee eS. 


PC. WALTE 
7% TSSRCRS) RI 
044 + we 
04451 0 0Oi«A1 708 a some 





CZTUXAO TUBO FRONT END PRT 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 





o 
woe nk eet au or er 


46 


FPF ERNO 









020064 


003072 


020064 


002170 
020136 





000031 


1738: 


180$: 


190$: 


JSR 
ERRHRD 


F 15 
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PC .FATCHK 
ERRNO, T24WDC ,PKTSSR 


es 

#256, .R6 

the) RS 

(R&) RI 

R3.R 

PC. FAT 

ERRNO, TOADTAEXPREC 






FATFLG, #25. 
999$ 
PC ,CKDROP 


7 AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER = 





«WORD 
WORD T24udC 
-WORD PKTSSR 
TRAP CSCLPI 


sLOOP IF SELECTED 

sGET BUFFER ADDRESS 
sCURRENT RECORD SIZE 
FIRST LOCATION IN BUFFER 
sSET POIN TER TO FRAME 


(WORD) 
K DATA READ TRSEDATA ALSO) 
sBR. IF ALL IS WELL 
DATA 


sRECD 
EXPECTED DATA 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
DATA READ NOT = WRITTEN 

















TRAP CSERHRD 
WORD $41 


“WORD T2460TA 
“WORD EXPREC 


TRAP CSCLP1 


sLOOP IF SELECTED 
s BUMP TO NEXT LOCATION 





> END CORD Y 
sBR, If NOT AT END OF RECORD 
sBUMP RECORD SIZE 
END OF RECORD YET 
;BR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
$>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10063: 

CSESUB 





TRAP 
s1S ERROR COUNT AT 25 
sBR, IF LESS THAN ce 
sTRY TO DROP THE UNIT 





_— 


SEQ 187 


€ 15 


SEQ 186 
CZTUXAO TU8O FRONT END PRT B MACRO M1200 29-MAR-835 15:32 PAGE 106 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


:+ 


;TEST 5, SUBTEST 6 


: VERIFIES THAT READ DATA COMMANDS WITH CVC=1 AND THE | 
:SWAP BYTES ( I OPERATES PROPERLY. THE TEST 

sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
; THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 











BGNSUB $>>>>>>>>>>>> ee >>>>>>>>>>>> 
; TRAP  C$BSUB 
7 052664 + T24RTS ;SET UP OTHER COMMAND PACKET | 
052530 JSR —«- PC. T24RE :SET COMMAND PACK 
052622 JSR «PE TOGRTS. [SET UP OTHER COMMAND PACKET 
SSRAAASKAAAAAAALSTASALSKSTAALAAAAAAAAAKRARARAAAAAARAKAARAAAEAAAAAAAAAS 
SISSUE CONTROLLER ‘SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


oe 
6 
SAAAAAAHAAAATAAAAAAAARAKAAEAAAAAAATAAATARAARAARAAKAARARAAAARAAAAAAAAAAE 


7 016630 JSR PC, SOF INIT sDO0 INITIALIZE ON CONTROLLER 
BCS sBK IF INIT WAS OK 






7 020064 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
° CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR SF IASG FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 

. 542 
WORD SFIERR 
208 WORD  SFIASG 

050040 MOV ST24PACKET .R4 SUBROUTINE NEEDS PACKET ADDRESS 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


» 
SRARSHAAAAAAASAASAASAAHATSAA HATHA LAAAARAKAAAHAAAAKAAAAARAAAAAAAHEAES 






010322 JSR —s« PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 24$ “BR, IF COMMAND 
020064 JSR —s- PC, FATCHK CHECK FOR MORE THAN 25 ERRORS 





: INC AND 
ROV 2 SAVE CONTENTS OF 1 
ERRHRD ERRNO,WRIASG, SF IASG WRITE CHARACTERISTISC foo y 








4$: K sLOOP IF SELECTED 
- —— TRAP = CSCLP'1 


pteeeeteeeereececerereeresererereeseneeeeeaggenessesseaneeesesesens 





~~ owe ee oe . EE LE 























CZTUXAO TUSO FRONT END PRT B 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


7610 
7611 
mig 
761 
7614 otras 0047357 010424 
7615 044 103407 
7616 044734 010001 
617 044736 004737 020064 
7621 ett: 
044742 104456 
044744 Oo teee 
044746 051526 
044750 011670 
7622 04475 
044752 104406 
7623 044754 012703 000400 
z : 044760 0137357 003072 
7626 
7627 
7628 
7 
76 
7631 
76 perth 150005 
7635 044774 050170 
7634 045000 
7635 045000 
vos Seems 004737 020356 
7637 04 050176 
76 12 oe 177776 
76 16 004737 017104 
7640 000000 
7641 oe 000200 
7643 
7644 045036 020064 
7648 
7649 
7650 Oe ehes 
045042 104457 
045044 001041 
ee 005011 
011670 
7651 04 ‘ 
mss Sane gut 
765 2705 000414 
7654 001346 
7655 
1044 
76 00574 
7657 045070 015757 003072 
7658 
7659 
7660 


MACRO 


050172 


050170 


050172 


29-MAR-835 13:32 


15 
PAGE 106-1 


LLL LLL LLL LLL LLL LLL LLL LA 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


JSR PC ,KEWIND 

Bcs 30$ 

MOV RO,R1 

JSR PC. FATCHK 

ERRHRD ERRNO, T24RUN,PKTSSR 
CKLOOP 

MOV #256. .R3 

MOV FREE, T24RB 


sCALL TAPE REWIND COMMAND 
sBR, reek PROBLEM 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED ‘ 

WORD 

~ WORD 

o WORD 
sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 





CSCLP1 


SHEAAAKSSAAAKAAAASAAAAAAAAAAAKAATAAASAARARAARARARARARARARAAAKAHAARAAERAAAREEA 


SWRITE DATA.ACK,CVC=1,SWB COMMAND 


# 
SAAAAAAAAAAAAAAAAA ESSA AAAS HLSLAAAAAAAAAAAAAAAAARERAAAHARAAREAAAES 


65$: 


75$: 


mov «#150005, T24PK3 
MOV —sAT 24PK3.RG 
MOV —s-—«aR3RO 

JSR —s- PC. FILLNEM 
MOV séRE. 1245? 
MOV —s«&4, TSDB(RS) 
JSR «PC WA 

MOV _—s TSSRCRS).RI 
MOV so @SSR,R2 
CMP séRT RD 
BEQtiés? 

JSR —s- PC, FATCHK 


ERRSOFT ERRNO,WRIERR ,PKTSSR 


CKLOUr 

TST (R3)+ 

CAP #268. .R3 
BNE 65$ 
CKLOOP 

TST -(R3) 

MOV FREE ,T24RB 


sWRITE DATA,ACK,CVC=1,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
7 UP RECORD SIZE IN PACKET 


1S COMMAND 

sWAIT FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE T 


sBR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
3 SOFT ong, REALLY CHECKING THE 


sREAD DATA COMMAND 
sTSSR INCORRECT AFTER a 


CSERSOFT 
; 545 
WORD WRTERR 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP = CSCLP1 
sBUMP RECORD SIZE 
sEND OF RECORD YET 
sBR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
;SET RECORD SIZE BACK TO 512. 
sSTARTING READ BUFFER ADDRESS 


steeeecereeerererereeeereeeerersengaertegstarareageeeeseengeeeeeeees 


“READ R 


RSE DATA. ACK,SWB CORMAN 


ee ee ee ee 


= 3 ae TUBO FRONT END PRT B 


TEST 





7693 
7694 
7695 
7697 
7698 
7699 
7700 
7701 
7702 
7703 
7704 
7705 
7706 





BASIC READ DATA (FORWARD AND REVERSE 


ese? 050170 
050176 
177776 
7 017104 
000000 
000200 


020064 


1708: 
003072 


000400 
1738: 






020064 


180$: 


FESLSSLSLELS 


703 000400 


002170 
020136 


000031 


FERELESESE 





165$: 





1 15 
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#710401, 124PK3 
#T246PK3 RG 
R3,124S2 

na. TSDB(RS) 

PC. WAITE 
TSSRCRS) RI 

Ri RS 

1708 

PC.FA 

aT T2eunc. EXPREC 


FREE ,R2 
#256. .R4 
R2_R4 
(R4) R3 
(R4) RI 
R3,R 





PC. FATCHK 
ERRNO, T24DTA, EXPREC 


FATFLG,#25. 
PC ,CKDROP 





er eee me — _— 


: 
s SHHKSASSSLASAAAACAAAESATESAAEAAAAAASSARAAARHKAAKAKARARAS Ree eeeeeeee 





sREAD REVERSE DATA ee COMMAND 
7SET UP R4 WITH PACKET ADDRESS 
:$ T UP RECORD SIZE IN PACKET 


iWAIT FOR SSR TO SET 








sINC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR INCORRECT AFTER READ DATA ‘ 


546 
T24WDC 
EXPREC 


CSCLP1 





sLOOP IF SELECTED 


GET BUFFER ADDRESS 
CURRENT RECORD SIZE 
sFIRST LOCATION IN BUFFER 
SET POINTER TO FRAME (WORD) 
s CHECK DATA READ (R3=DATA ALSO) 
s6R, ALL IS WELL 
sRECD DATA 
s EXPECTED DATA 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
DATA READ NOT = WRITTEN - 


CSERHRD 
WORD 547 
WORD T24DTA 
WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


s BUMP i. NEXT LOCATION 


SEND OF RECORD YET 
sBR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 
END OF RECORD YET 
sBR, IF MORE RECORDS TO WR'TE 
SLOOP IF SELECTED 
CSCLP1 


TRAP 
$>2>>23>3>333>> 7 SUBTEST >>>>>>>>>>>> 
L : 

CSESUB 








TRAP 
31S ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


SEQ 190 


' 
Re TT 


S50 


RRERERORRRON IR: 


eh sod ant sob anh 


NNSSz 


EESSESEEEES 
OLMIS 


SISIISIIII3 
Bpesseesrasass 
93939399 3923235 


322 2 


CZTUXAO TUBO FRONT END PRT B 
TEST 5: 


7 0166350 


020064 


050040 


? 010522 
7? 020064 





1200 
BASIC READ DATA (FORWARD AND REVERSE) 


J 15 
29-MAR-83 13:32 PAGE 107 





2@ 


;TEST 5, SUBTEST 7 


:VERIFIES TH THAT A READ REVERSE COMMAND READING A RECORD 
HAN THE SPECIFIED BYTE COUNT CAUSES 

STATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 

s(RLL) BIT SET. 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


Hi csesue 


TRAP 
JSR PC, T24RTS sSET UP OTHER aunt PACKET 


JSR PC, T24REST sSET COMMAND P. 
JSR PC, T24RT2 SET UP OTHER COMMAND PACKET 


SRAAAAARAAALEATSSS ET KAAAKAAAAAAALALARAAAATARAKAAAAHERAAERAAAAERAAAAES 


SISSUE CONTROLLER ‘'SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


® 
@ 
SRARAAATAKAKKAAALS TELS CRORE KARERARAAAAAAAARAAAAAAAAARARARARAAAARERE 


JSR PC, SOF INIT :DO0 INITIALIZE ON CONTROLLER 

BCS 20S sBk IF INIT WAS OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV oR :CONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR,SF IASG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
WORD 54 
WORD SFIERR 
WORD SFIMSG 


20S: 
MOV ST24PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SRARAKASAAAATAAAATAAAAAAAASAASTAAAALARAAARAAAAAAAAAAAARAARAAHARAEKERS 


WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


& 
€ 
SRAAAALARAAAATAASAAAALAAAALALAATAAAAAAAAAAAAAAAAARAAAAAKERAAHAAAATE 





JSR «PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
cs 24$ °BR, IF COMMAND 
JSR PC, FATCHK K FOR MORE THAN 25 ERRORS 





sINC AND CHECK 
SAVE CONTENTS OF TSSR 
SWRITE CHARACTERISTISC FAILED 





MOV oR 
ERRHRD ERRNO, WRIASG, SF IMSG 


TRAP SERHRD 

~WORD 549 

~WORD WRIMSG 

-WORD SFIASG 
248: CKLOOP sLOOP IF SELECTED 

TRAP = CSCLP'1 


SEQ 191. 


——<—— 
ALA 


—— ee ee ee -—— 






















~ 

338 
SELF 
ae 
NOS 


PreePErer es 
RELSSSS 
333333 


é 


Serre 
SOP 


04 
My 
04 
04 
04 
04 
04 
04 


s 


ree 
ree 


a 
Me 
324 


ane can 








1 
5400 051526 
01 


004737 
00475 
103407 
010001 
737 
104456 
001046 
1670 


013737 


012757 
012704 


010337 


Ot 737 


012737 
010337 


CZTUXAO TUBO FRONT END PRT 6 
TEST 5: 


010424 


7 017220 


020064 


104406 
5406 012703 001000 


0035072 


140005 
050170 


050176 
177776 


7? 017104 
000000 
2 000200 


020064 


000400 
003072 











050172 


050170 


050172 


050170 
70 


eee ee = eee eee 


Kk 15 


MACRO M1200 29-MAR-83 13:52 PAGE 107-1 
BASIC READ DATA (FORWARD AND REVERSE) 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


° 
SAAS ASAAAAAAAATAAAAA AAA ALAA KL AAAALAAAAARAAAAAKRAHARAKKAKAKAHARARLALee 


308: 


tie 
30$ 


RO,R1 
PC .FATCHK 


ERRNO, T2GRWN, PKTSSR 


#512. ok3 
FREE ,T24RB 


sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 


: PROBLEM 
SAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 
~ WORD 
«WORD 
- WORD 
sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
STARTING WRITE BUFFER ADDRESS 


ee 


SWRITE DATA,ACK,CVC=1 COMMAND 


< seenneenenceccececceeeccerececenensensenneneeneenencenenneesenene 


65$: 


75$: 





MOV 
MOV 
MOV 
MOV 
JSR 


MOV 
MOV 
CAP 





BEQ 
JSR 


ERRSOF T 


CKLOOP 





#140005 , T24PK3 


#T24PKS.R4 


R3,124SZ 
R4, TSDB(RS) 








sWRITE DATA,ACK,CVC=1 COMMAND 
sS&T UP R4 WITH PACKET ADDRESS 


aes UP RECORD SIZE IN PACKET 
sWAIT FOR SSR TO SET 


TSSRCRS) RI GET TSSR CONTENTS 
#SSR,R2 3SET UP EXPECTED 
1,R2 ARE 
75$ F OK 
PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
SSOFT ERROR, REALLY CHECKING T 
READ DATA COMMAND 
ERRNO, WRIERR,PKTSSR “TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERSOFT 
.WORD 551 
“WORD  WRTERR 
“WORD  PKTSSR 
SLOOP IF SELECTED 
TRAP CSCLP? 
#256. ,R3 sSIZE OF RECORD 
FREE, T24RB “STARTING READ BUFFER ADDRESS 


sRAAHAAAAAAAHAASAAAASAALAATAAAATALAAAALHAARAAAAKAHATAAAAAAAAH ALANS 


READ DATA,ACK COMMAND 


2 
* 
steeraarereaarereceerrerrereeseeressegeaatenneteeneneneaanesesesess 


1658: 












#100401 , T24PK5 
#T26PK3,R4 





;READ DATA,ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS: 





SEQ 192 


te meee - —_— . 


; 
’ 
———— —- 





L 15 


CZTUXAO TUBO FRONT END PRT B MACRO M1200 eee 13:32 PAGE 107-2 
TEST 5: SASIC READ DATA (FORWARD AND REVERSE 






Se ee 





s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 
EXPECTED 





:SET UP 
AR ARE T 
: . IF OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 
TRAP CSE 
«WORD 552 
«WORD T24TAL 
«WORD EXPREC 
sLOOP IF SELECTED 
RAP CSCLP1 


SRAAAARAERAAAAAAAS CERAAAAATES CG AAAAARERAAAAARAARAAAAAAAAAAAAAAAAARAENE 


: 
FRAAAAAAAAAAAASS SHAS S SATA RALAAAAAERARAKAAAAARAAAARARARARAAAAEEREAESE 


GET NESSAGE BUFFER (xSTO) 
'SET THE RLL BIT IN EXPECTED 
ARE THEY EQUAL ie 


S 
FOR MORE THAN 25 ERRORS 
THE RLL BIT WAS NOT SET IN XSTO 

TRAP gagnnno 


WORD 
eWORD T24L0N 
eWORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10065: 
CSESUB 











:1S ERROR COUNT AT "05 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


7813 045530 he. ae 177776 MCV R4, TSOB(RS) 
4 045534 004 017104 JSR “WA 
7815 065540 016501 006000 MOV TSSRCRS), R1 
045544 0 ae 100204 MOV #SSR!SC'BIT2,R2 
045550 CMP R1,K2 
18 045552 BEQ 
5 020064 JSR PC, FATCHK 
ERRHRD ERRNO, T24TRL,EXPREC 
170$: CKLOOP 
7825 
rr 
, 8 sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
ie 
Tose 045572 013701 050066 MOV T24BFR+6,R1 
7833 045576 010102 MOV = 
7834 045600 052702 010000 BLS #B1T12,R2 
7835 045604 020102 cmp R1,R2 
rea otra 001406 BEQ 
37 045610 004737 020064 JSR PC ,FATCHK 
7841 045614 ERRHRD ERRNO, T24LON.EXPREC 
045614 104456 
ease 001051 
: 052142 
04 016330 
ree 045624 180$: 
784 4 ENDSUB 
04 104403 
7844 04 023727 002170 000031 FATFLG,#25. 
7845 045634 002402 BLT 
7846 045636 004737 020136 JSR PC, CKDROP 
Moff 045642 9996: 
;* 


SEQ 193 


eo ee we ere ee ee ee ee ee eee 


7850 
7851 
785 
785 


7855 

7857 

59 
7861 045642 
045642 
045642 
045644 
045652 
7864 045656 
7865 045660 


7866 045664 
7867 045670 


Sur 


Sessaee 





r 
3 

ESSSESEESES 

BENSassases 


Sgezassseecess #886 BF 


0 
011656 
012704 


CZTUXAO TUSO FRONT END PRT B 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


000000 
003100 


046300 
052664 
0525350 
052622 


7? 0166350 
7? 020064 


050040 


0103522 


mn 15 
SEQ 194 | 


MACRO M1200 29-MAR-835 15:32 PAGE 168 


STEST 5, SUBTEST 8 | 


VERIFIES THAT A EAD REVERSE COMMAND SPECIFYING A DATA | 
SBUFFER STARTING IN WONEXISTANT MEMORY TERMINATES WITH 
STHE PROPER ERROR STATUS WITHOUT ROVING TAPE | 








BGNSUB 3>>>>>>>>>>>> = «mel >>>>>>>>>>>> 
sie C$BSUB 
050216 MOV #0, T24DLY sADDRESS BITS FOR LATER 
9$ TST KTFLG “CHECK FOR KT11 
BEO 10$ BR, IF 111 
JP 1808 SJUMP IF KT11 
10$: JSR PC, T24RT3 3SET UP OTHER COMMAND PACKET 
JSR PC. T24REST SSET COMMAND PA 
JSR PC. T24RT2 “SET UP OTHER COMMAND PACKET 
SRRAREAAAAAARAASAAAATAEAAAAAATAKLAHARAAREKLAARAAAAAAAAARARARAAAAAAARAAAES 
SISSUE CONTROLLER SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
s Peaeeeeenereeeeererrereeenteereersneetenteneneereneeeenenneneents 
JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
BCs 20$ SBR IF INIT WAS OK 
JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV : “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
.WORD 554 
“WORD SFIERR 
si “WORD SFIMSG 
"MOV #T24PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
SRARRARAAAAAAALARAATAKAAALASAAEAAAAAAAAAAKAAAAAAAAKTAAAAARTANEAAEES 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
 eeeeeenranencenerereereerereereeeeeenrerententarennereeneneeneeeee 
JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
acs 26$ “BR, IF COMMAND 
JSR —s- PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV SSAVE CONTENTS OF TSS 
ERRHRD ERRNO,WRTMSG, SFIMSG “WRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
.WORD 555 
“WORD URTMSG 
SFIMSG 


CKLOOP sLOOP IF SELECTED 


" Dasrse 104406 eee eee 


NWN © 





051326 
011670 


104406 


012705 
013737 


000187 


010137 


CZTUXAO TUSO FRONT END PRT B 
TEST 5: 


7902 
7903 


7904 
7905 
7906 
7907 
7908 
7909 
791 
791 
791 
791 
791 


010424 
017220 


020064 


000400 
003072 


140005 
050170 


050176 
177776 


7 017104 
000000 


020064 


000400 
160000 
177776 
017260 


046300 
050172 


N15 
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050172 


050170 


BASIC READ DATA (FORWARD AND REVERSE 


fF SAAAAAAAAAAAAASLATAK LSS AAL ALAA AALS RAAAAKLKALAAAATAAKAAReKAAKeeAKeAeee 


SISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
§ AAAAAKEAAAARAAAAATAALA ALAA A AA AALATAAAAAARAAAAKARAAAATAARAAAALARAAAAEHAES 


JSR PC REWIND sCALL TAPE REWIND COMMAND 
JSR PC ,CHKTSSR sSEE HOW TSSR IS 
BCS 30$ sBR, IF 


3: SAV R 
sINC AND CHECK FOR MORE THAN 25 ERRORS 


vate 
PC,F 
ERRHRD ERRNO. TOGRUN, PKTSSR REWIND NOT ACCEPTED 


CSERHRD 
556 


~ WORD 
WORD T24RWN 
WORD PKTSSR 
sLOOP IF SELECTED 


TRAP CSCLP1 
MOV #256. R35 sRECORD SIZE 
MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 


army sages a a AS a anata inal ania 


sURITE DATA,ACK,CVC=1 COMMAND 


MOV #140005 , T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
MOV #T24PK3,R4 :SET UP R& WITH PACKET ADDRESS 





30S: CKLOOP 














65$: 
R3,124S2 3SET UP RECORD SIZE IN PACKET 
Ra, -TSDB(RS) ; 
PC,WALTF ‘WAIT FOR SSR TO SET 
TSERCRS) RI SGET TSSR CONTENTS 
#SSR,R2 3SET UP EXPECTED 
R1,R2 SARE T 
75$ BR, IF OK 
PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, WRTERR,PKTSSR STSSR INCORRECT AFTER WRITE DATA 
CSERSOFT 
TYORD 557 
“WORD  WRTERR 
“WORD PKTSSR 
75$: SLOOP IF SELECTED 
TRAP  CSCLP 
#256. ,R3 SRECORD SIZE 
# RI START POSSIBLE A, ADDRESS 
#177776 ,R2 SEND ND POSSIBLE N XM ADDRESS 
JSR PC, XNKM :CALL NXM FINDER ROUTINE 
BCS a IF FOUND 
MP MP OVER 





180$ CAN'T FIND NXM 
768: MOV R1, T24RB : STARTING READ REVERSE BUFFER ADDRESS 


SReeeeAeAeReeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeeeegeeeesaeseesesaasesss 


“READ REVERSE DATA, ACK C ee 


SEQ 195 | 


—— me 


8B 16 


106 | 
CZTUXAO TU8O FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 108-2 SEQ 196 | 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 
















7955 : 
Ree seeeerereeaaeeereeeerereeereeeeeneegaaeeaereeenaeeearererererenerer 
ae 050174 MOV T24DLY , T24RB42 sGET BITS 16 AND 17 
0501 MOV 
7960 165$: MOV SS 
7961 050176 MOV T UP RECORD SIZE IN PACKET 
Le MOV COMMAND 
7% JSR T FOR SSR 70 SET 
7964 MOV SRCRS) RI 
7965 MOV #SSRIWKM!SC!BIT3.R2 
ae CMP R1,R2 
7% BEG 1 sBR. IF OK 
7968 050216 ADD #1, T24DLY NEXT BUNCH OF MEMORY 
Les 44 050216 CMP #4, T24DLY : TOO eo MEMORY 
gEQ 1688 3BR IF OVER 
168$: JSR PCF sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2GNXR, PKTSSR ;TSSR INCORRECT AFTER READ DATA 
TRAP RHRD 
«WORD 
eWORD  T24NXM 
-WORD PKTSSR 
170$: CKLOOP sLOOP IF SELECTED 
TRAP =—s« CSL 
SRHAHAATAAAAAATAAAASTE THAT TATAAAHKAAAAAAATAAAAERAKHAARARARAKEReRAHD 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
PITTI iit iti titii iii iii iii iii 
MOV $ T24BFR+6,R1 GET ESSAGE BUFFER 
MOV ‘ sSET UP 
BIS #BIT14,R2 sSET THE RLS BIT IN EXPECTED 
CMP R1,R2 SARE THEY EQUAL 
BEQ 1 ;BR, IF EQUAL (ALL IS WELL 
JSR PC, FAT INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26LOP. EXPREC THE RLL BIT WAS NOT SET IN XSTO 
TRAP CSERHRD 
eWORD 559 
.WORD T24L0P 
1008 eWORD EXPREC 
ENDSUB 5?>>>>>>>>>>> oe Ses >>>>>>>>>>>> 
TRAP CSESUB 
000031 CMP FATFLG,#25. 31S ERROR COUNT AT 25 
BLT 999$ 3BR, IF LESS THAN oe 
JSR PC .CKOROP sTRY TO DROP THE UNIT 





046400 
046402 
046406 
046410 
046410 
046412 
046420 


on 
oS 


CZTUXAO TUBO FRONT END PRT B 
TEST 5: 





104402 

004737 052664 
004737 052530 
004737 052622 
004737 0166350 
103407 

004737 020064 
010001 

104455 

001060 

003550 

011656 

012704 050040 
004737 010522 
103407 

004737 020064 
010001 

104456 

001061 

004754 

011656 

104406 

013737 003072 050172 
012737 177700 050174 


C 16 


MACRO wt Pes 13:32 PAGE 109 
BASIC READ DATA (FORWARD AND REVERSE 


s¢ 
z 
. 


TEST 5, SUBTEST 9 


“VERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
“FUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
[(ILA? ERROR BIT SET. 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
‘ TRAP C$BSUB 

JSR PC, T24RT3 sSET COMMAND PACKET UP CLEAR 

JSR PC, T24REST :SET COMMAND PACKET 

JSR PC, T24RT2 :SET UP OTHER COMMAND PACKET 


SSMS AAAAAAAAAAAAAAAAAAAAAAEA ERA AAARARAKAAAAKAAARAAAKAAAARAARARAAAEAS 


[ISSUE CONTROLLER SOFT’ INITIALIZE = CARRY BIT CLEAR IF ERROR 


e 
SRHAARAAAAAAAAAEKATHSEKERERESAAAEKAARAERAAAAAAAAARAKRARARARAAHLARAERAAS 


JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 

BCS sBk IF INIT WAS OK 

JSR PC ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERRDF ERRNO,SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
. 560 
WORD SFIERR 

208 WORD SFIMSG 
MOV #T24PACKET R4 sSUBROUTINE NEEDS PACKET ADDRESS 


SSRHAAAAAARAEAAAAAASASAATAEAAARARAREREAAAAAKARAARAAARARAHAARARAUAAS 


“WRITE CHARACTERISTICS COMMAND (CALL TO URTCHR) 


¢ 
SRSHSAAAAAAAAATASAAAAAAAEA AAA AAAAAAARARATAAAARAAAAARAAAAAAAATERAORERS 


JSR PC ,WRICHR 





sISSUE WRITE CHARACTERISTICS 

Bcs aS :BR, IF COMMAND | 
JSR PC ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV : *SAVE CONTENTS OF TSSR 
EPRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 

TEORD 

“WORD 

WORD  SFIMSG 

24$:  CKLOOP SLOOP IF SELECTED | eit 

MOV FREE, T24RB sILLEGAL STARTING READ BUFFER ADORESS. 
MOV #177700, 124RB+2 SCREATE ILLEGAL ADDRESS 


SEQ 197 


TTS - 


D 16 


MACRO M1200 ‘he 13:32 PAGE 109-1 
BASIC READ DATA (FORWARD AND REVERSE) 


CZTUXAO TUSO FRONT END PRT B 
TEST 5: 


8054 
8055 
8056 





“LEGAL MODE,ACK,CVC=1,READ COMMAND 





£ SAAS AAAA AALS SASL SK SASK SA TSLSKLSTAKAALALAKLALKLAKAAKLALAARAKAAAKARARALALAE 


4 
£ SAAAAAt CAAA AAAAALA SA AAA ASKS TALL ALALARAKAARAARAAARAKRAHATLAALARAKRAKALAARAAEE 





8060 oeeee 012737 140001 050170 #140001 , T24PK3 SLEGAL MODE.ACK.CVC=1,READ COMMAND 
8061 046434 012704 050170 #T24PK3,R4 [SET UP R4 WITH PACKET ADDRE 
046440 012737 000400 050176 3SET UP RECORD SIZE IN PACKET 
046446 010465 177776 2iS C 
046452 004737 017104 5 sWA 
046456 016501 900000 TSSRC(R5S) RI : 
8066 046462 012702 100206 @SSR'SC'BIT1!BIT2,R2 : 
8067 046466 020102 R1,R2 ; 
8068 046470 001406 ; 
8069 046472 004737 020064 JSR PC FATCHK . NC AND CHECK FOR MORE THAN 25 ERRORS 
8073 046476 ERRHRD ERRNO, T24WDG_FKTSSR *TSSR INCORRECT AFTER READ DATA 
046476 104456 TRAP CSERHRD 
046500 001062 WORD 56 
046502 050342 -WORD T24WDG 
046504 011670 WORD PKTSSR 
8074 046506 75$: CKLOOP sLOOP IF SELECTED 
ne 046506 104406 TRAP = CSCLP1 
8076 SRAAAAAAAAAAAAAAARAAAAEAAAAALALARAAAKARAAAAAAAARARAAAARAAAAAAAANAAE 
8077 : 
oe sREAD MESSAGE BUFFER EXTENDED STATUS REGISIER ZERO (xXSTO) 
80890 PITIT TTL ititiiiiiitiiiiiiiiiiiiiiiiiii iii 
8081 
8082 046510 013701 050066 MOV T24BFR*6,R1 :GET MESSAGE BUFFER 
8083 046514 MOV R1R 3sSET UP EXPECTED 
8084 16 000400 BIS #BiTS,R2 sSET THE ILA BIT IN EXPECTED 
808 2 CMAP R1,R2 sARE THEY EQUAL 
n BEQ 1808 3BR, IF EQUAL CALL IS WELL) 
8087 020064 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24ILA,EXPREC > THE ILA BIT WAS NOT SET IN xSTO 
TRAP CSERHRD 
WORD 563 
eWORD T24ILA > 
eos eWORD EXPREC 
1 : 
ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
25 :1S ERROR COUNT He 25 _— 
002170 000031 CMP FATFLG,#25. 
BLT “BR, IF LESS THAN 25 
020136 JSR PC ,.CKDROP sTRY TO DROP THE UNIT 





’ 
i 
a ee ee eee ee ee ee 
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CZTUXAO TUBO FRONT END PRT G MACRO M1200 29-MAR-835 15:32 PAGE 110 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


SEQ 199 


3¢ 


8100 $ 
are) s TEST 5, SUBTEST 10 
8103 : VERIFIES THAT A DAIA BUFFER ADDRESS REFERENCING 
8104 I RABLE 
8105 

06 


eet AD 





1 XISTANT MEMORY CAUSES RECOVE 
; TERMINATION (TC=4), WITH THE NXM BIT SET IN THE TSSR, AND 
oi0e ; THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
8108 : 
8109 3 
B11) A 
8112 Sartre BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
046 104402 TRAP C$BsuB 
13 046 012737 000000 050216 MOV #0, T24DLY sSET BITS 16 AND 17 
1 5 005737 003100 9$: TST KTFLG sCHECK FOR KT11 
4 574 00140 BEQ 10$ “BR, IF NO KT11 
1 44 0001 047034 JMP 80$ : JUMP IF KT11 mie TEST) 
1 737 052664 10$: JSR PC, T24RT3 :SET COMMAND PACKET UP CLEAR 
1 6606 737 052530 JSR PC. T24REST sSET COMMAND PACKET 
1 12 004737 052622 JSR PC. T24RT2 ’SET UP OTHER COMMAND PACKET 


HY SKRAAAAAKAAKRASSAAAAAATALAAAEATAASATARAARARAARAKARARAAAAARAACARARRARARAES 


ISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 


2 
e 
; SKAAAAARAALARTSAAASAAALALAALSRKSERAAAAAARARARAARAARAARAAARAARAR ARERR 








004737 016630 JSR PC, SOF INIT ;00 INITIALIZE ON CONTROLLER 
8 103407 acs «6=—s«-208 :8R IF INIT WAS 
004737 020064 JSR PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
010001 HOV Rt CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG | ;FATAL ERROR TSSR WAS NOT OK 
104455 TRAP —CSEROF 
1 WORD 564 
3550 “WORD © SFIERR 
| 011656 “WORD  SFIMSG 
‘155 208: 
 % 046642 012704 050040 MOV = #T24PACKET.RG ;SUBROUTINE NEEDS PACKET ADDRESS 
138 SRRAAAAAAAAAASAAKAASASSSAAAAHATAAAAAALAHAAAAAEARAARAAARAARAAAERATEREES 
1 : 
140 SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
My + eeeneeeeeceeeereeeeeererrereceseeeertereenceneneeereneneentetenee 
14 
HP 737 010322 JSR PC, WRTCHR ISSUE WRITE CHARACTERISTICS 
8145 ? ects =a :BR, IF COMMAND ISSUED 
81 ? 020064 JSR «PC, FATCHK ZINC AND CHECK FOR MORE THAN 25 ERRORS 
a1 ROV : SSAVE CONTENTS OF TSSR 
151 ERRHRD ERRNO,WRTMSG.SFIMSG © WRITE CHARACTERISTISC FAILED 
1044se TRAP  CSERHRD 
1 WORD 565 
“WORD WRTMSG 
O11 —_ 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 


SEQ 200. 























24$: SLOOP IF SELECTED 
TRAP —- CSCLP1 
160000 SSTART POSSIBLE NXM ADDRESS 
177776 “END POSSIBLE NXM S 
7 017260 
0470346 
050172 1, T24RB : 
jtteeneenencensecereereencecencecennneccneneneneenteunneeenereeees 
“READ, ACK, CVC=1, COMMAND 
PITITI TIC ii iit iitiiiiiiiiiiiiiiiiiiiii 
13737 050216 050174 MOV § T24DLY, T24RB+2 sMEMORY BITS 16 AND 17 
050170 MOV «#140001, T24PK3 SREAD, ACK, CVC=1, COMMAND 
1 1 050170 MOV = #T24PK3.RG “SET UP R& WITH PACKET ADDRESS 
012737 000400 050176 MOV #256.,124S2 SSE UP RECORD SIZE IN PACKET 
169 010465 177776 MOV «RG, TSDB(RS) COMMAND 
1 737 017104 JSR —s- PC. WALTF SWAIT FOR SSRIBIT1!B1T2 TO SET 
171 016501 000000 MOV _—s TSSR(RS),R1 SGET TSSR CONTENTS 
17¢ 01 702 104210 MOV =: #@SSR!SC'NXM!BIT3,R2 °SET UP EXPECT 
Fi 10 CMP séR1,R2 SARE T 
8174 161 BEO BR, IF OK 
175 37 7 000001 050216 ADD  —s- #1, T24DLY [NEXT BUNCH OF MEMORY 
1% 7 000004 050216 CMP so #4. T24DLY :TOO MUCH MEMORY 
1 140 GEO 50$ SEND OF LINE 
178 000137 046602 MP s«é108 STRY AGAIN 
1 004737 020064 JSR _—sC PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
183 0470 ERRHRD ERRNO, T24NXM,PKTSSR *TSSR INCORRECT AFTER READ DATA 
104456 TRAP CSERHRD 
1 TOORD 566 
50431 “WORD  T24NXM 
04 011670 “WORD PKTSSR 
04 sLOOP IF SELECTED 
04 104406 TRAP  CSCLP1 
ee 3s $2>333339 2333 ~~ i.” >>>>>>>>>>>> 
L . 
04 104403 TRAP  CSESUB 
7036 023727 002170 000031 FATFLG,#25. 31S ERROR COUNT AT 25 
002402 “BR, IF LESS THAN 25 
04 004737 020136 PC, CKDROP “TRY TO DROP THE UNIT 
ba70So 
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BASIC READ DATA (FORWARD AND REVERSE) 


CZTUXAO TUBO FROKT END PRT B SEQ 201 
TEST 5: 














+ 

sTEST 5, SUBTEST 11 

: VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
sTAPE IS AT BOT 


RESULTS IN FUNCTION REJECT TERMINATION 
;WITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 








04 oes BGNSUB 3>>>>>>>>>>>> ScOin HueTest >>>>>>>>>>>> 
047052 104402 "TRAP ss C$BSUB 
sus Bees rey sate mee sm comes peat » 
7 047064 004737 052622 JSR —s- PC. T24RT2 [SET UP OTHER COMMAND PACKET 
5209 SRAAAAAAAAAAAAAAAAAETAAAERERAAAERAAAAAARARAAAAAAAARAAAAAATAAAAATE RES 
e211 SISSUE CONTROLLER ‘SOFT’ INITIALIZE - CARRY BIT CLEAR IF ERROR 
of MITITIIT ttt tit tittiitiifiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiii 
15 067070 004737 016630 JSR —s- PC, SOF INIT 3D0 INITIALIZE ON CONTROLLER 
8216 047074 103407 acs 3BR IF INIT WAS OK 
8217 047076 004737 020064 JSR —s- PC, FAT CHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
8221 047102 010001 MOV “ SCONTENTS OF TSSR REGISTER 
22 0471 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
047104 104455 TRAP  CSERDF 
047106 001067 .WORD 567 
047110 003550 “WORD SFIERR 
047112 011656 “WORD SFIMSG 
047114 20S: 
047114 012704 050040 MOV «ss @T24PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
SARAHKAAAAAHRAAALASKE SAAS AARATAAARAAAAAARAAERERERAAAEAAARAEHAAEAERE 
“WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
+ Reeneeanenarrerenereeneerereenerennereereereneneeneearennenneenene 
047120 004737 010322 JSR —s- PC, WRTCHR sISSUE WRITE CHARACTERISTICS 
7124 103407 BCS 0s °BR, IF COMMAND 
Oe7t 004737 020064 JSR —s- PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
7182 010001 MOV : *SAVE CONTENTS OF TSSR 
0471 ERRHRD ERRNO,WRTMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 
047134 104456 CSERHRD 
0471 001070 568 
047140 004754 WRIMSG 
047142 011656 SF IASG 
8240 0471446 26$:  CKLOOP SLOOP If SELECTED 
, 047146 104406 CSCLP1 
Hh SRAAAAeeAeeeeeeeeeeeeeeeeee#eeaeeaeeedeaaeaeaeseegeseeeeaaeeaaweseseesess 


ee EE 


ALL ALL LO OLE OS LLL LE LLLOLLA 





74 
8257 047176 
94 176 


6259 O47 047204 





—~é 
on 


yesassaseeesre & 


FRRELFS 
=S 3 


26 
011670 


104406 
012703 
013757 


012737 
012704 


4 
010337 


010465 


CZTUXAO TUSO FRONT END PRT B 
TEST 5: 


010424 


7 017220 


020064 


000400 
003072 


100401 
050170 


050176 


050066 


cece tL LL 
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050172 


050170 


BASIC READ DATA (FORWARD AND REVERSE 


ee ee ee —— 


ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


6 
£ SAAS AAAAAS AAS ASL SAAS ALAA ALLS LALAKALAKRALAAAAKAALAKKLAKAAAALAKAALAALLATE 


30S: 


CKLOOP 


MOV 
MOV 


PC REWIND 
PC .CHKTSSR 


, 
ERRNO. T2GRWN, PKTSSR 


#256. .R5 
FREE ,T24RB 


sCALL TAPE REWIND COMMAND 
sSEE HOW TSSR IS 
PROBLEM 









sINC AND CHECK FOR MORE THAN 25 ERRORS 
REWIND NOT ACCEPTED 








sLOOP IF SELECTED 


TRAP 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


CSCLP1 


§ SAAAAARAAAKAASAAAAAAAKAARALATAREKAAAAAARARAAAAAAAAARARAAARAHARAARAAAE 


SREAD REVERSE DATA, ACK COMMAND 


s 
SRAAAAAAAAAAAAAATASTAAAAALLHAAEKAAAARARARARARAAAARARAAARARARAAAAAAE 


65$: 


75$: 


MOV 
MOV 


MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 


CKLOOP 


Ht ik aden 
#T24PKS.R 


R3, 12482 

na. TSDBCRS) 
TSSRCRS),RI 
@SSR'SC'!BIT1!B1T2,R2 
R1,R2 
75$ 


PC .FATCHK 
ERRNO, T24UDE ,PKTSSR 


sREAD REVERSE DATA,ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
: COMMAND 
sWAIT FOR SSR TO SET 


. IF OK 
SINC AND CHECK FOR MORE THAN e ERRORS 
STSSR INCORRECT AFTER = 


CSERHRD 
eWORD 570 
WORD T24WDE 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


SRHAAAAAAAALAAAAAAAASAAALASAAATEKAAALAAAALAAAAAAAAAEAAAEAAAEER TEES 


READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


. 
8 
SARAHAAAAeA Ae eA LASS eeSAAAAAATATAAALAKAHAAAAHAAERAAERAAAARAAEREES 


T24BFR+6,R1 
#BiT10,R2 
R1,R2 


1 
PC .FATCHK 
RRNO , 124 






sGET MESSAGE BUFFER 

SET UP EXPECTED 

:SET THE NEF BIT IN EXPECTED 
sARE THE 


Y EQUAL 
BR, IF EQUAL CALL IS WELL) 
SINC AND CHECK FOR MORE THAN 25 — 












SEQ 202 





ee ee 


<——— =—_—--——-w ee oe ee 


TEST 5: 


CZTUXAO TUBO FRONT END PRT 8 
BASIC READ DATA (FORWARD AND REVERSE) 


104456 
001073 
ores 
016 


104405 
StH 002170 000051 
004737 020136 


BL 
JSR 
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CMP 
T 





FATFLG,#25. 
PC ,CKDROP 


I 16 


PAGE 111-2 


TRAP 
- WORD 


bas 
sIS ERROR COUNT AT 25 
BR, IF LESS THAN if 
sTRY TO DROP THE UNIT 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10071: 


CSESUB 


SEQ 205 


AE ALE le i 


errr EES r———————_ sss — 


J 16 
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CZTUXAO TUSO FRONT END PRT B SEQ 204 


TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 














8307 
8308 TEST 5, SUBTEST 12 
8309 VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
8310 :TAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
Ha _ NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 
8313 phe rt BGNSUB 2>>>>>>>>>>>> as SUBTEST >>>>>>>>>>>> 
. : 
04 104402 TRAP CSBSUB 
8314 047344 004737 052664 JSR PC, T24RT3 sSET COMMAND PACKET UP CLEAR 
8315 047350 004737 052530 JSR PC, T24REST sSET COMMAND PACKET 
8316 047354 004737 052622 PC, T24RT2 3SET UP OTHER COMMAND PACKET 
at SRAAAAAAAAARAAAAELAAAAAE LEA ALAAAAAAAAALARAARARAAAAAAAAARAARARAAAAAAATS 
ah —_— CONTROLLER ‘’SOFT’’ INITIALIZE = CARRY BIT CLEAR IF ERROR 
8321 PITITITIL Titi t itt ict iii iii iti iii iiiiiiiiiiiii iii iii 
8322 047360 004737 016630 JSR PC SOF INIT 3b0 i ON CONTROLLER 
8323 047364 103407 Bcs 20$ ‘BR IF INIT WAS OK 
4 04 004737 020064 JSR PC FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
8328 047372 010001 MOV RO,R1 = CONTENTS OF TSSR REGISTER 
047374 ERRDF ERRNO, SFIERR,SFIASG FATAL ERROR TSSR WAS NOT 
047374 104455 CSERDF 
047376 001074 WORD 572 
047400 003550 -WORD SFIERR 
047402 011656 -WORD SFIMSG 
8330 047404 012704 050040 20$: MOV #T24PACKET RS sSUBROUTINE NEEDS PACKET ADDRESS 
1 jeaneenennenneeceeseeneerentesceeneennenenenennnatanesestansaneees 
SMRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 
gharnaarianarapenn se amseihesioaaieeeivsanateneeamnnapsccsazass 
047410 004737 010322 PC .WRICHR s ISSUE WRITE CHARACTERISTICS 
8337 047414 103407 acs 24$ F COMMAND ISSUED OK 
8338 047416 004737 020064 JSR PC ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
047422 010001 MOV ° > SAVE CONTENTS OF TSSR 
047424 ERRHRD ERRNO,WRTIASG,SFIMSG sWRITE CHARACTERISTISC ony 
047424 104456 TRAP CSERHRD 
0474 001075 WORD 575 
0474 004754 “WORD  WRTMSG 
0474 011656 eWORD SFIASG 
248: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 





020064 





SRAKAAARAAAAAAAARASAAATATAAATASAAAAAAAAAAAAAAAAAAAAAAARAAAARAAEAAES 


; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


{ Reeeeeenennerereeerareeenereerereneeeneneneraeeerenteereneetretes 


010424 -J5R PC REWIND sCALL TAPE REWIND COMMAND 
017220 JSR «PC, CHKTSSR *SEE HOW TSSR IS 
acs 30$ :BR, 1F (NO PROBLEM 


; SAVE R 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 

TRAP CSERHRD 


eWORD 574 


iehia) 
——_- 


JSR PC. FATCHK 
ERRHRD ERRNO, T24RWN,PKTSSR 


047464 
8359 047466 





8360 04 
8361 047474 
8362 


8373 34 
8374 047540 0 


8375 047542 





04 
Oars 
04764 
047644 
047646 
047650 
partes 
0476 
047654 
047660 


8405 
8406 
8407 
8408 
8409 


104406 
7470 Oi gree 


011670 


13737 


011670 


104406 
012703 
013757 


012737 
0 


CZTUXAO TUSO FRONT END PRT B 
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000400 
003072 


000400 
003072 


100401 


000400 
003072 


K 16 
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30$: CKLOOP 
MOV #256. ,R3 


- @& 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
STARTING WRITE BUFFER ADDRESS 


MOV ’ 
, eeeenarenecereereereeterrereeecerereanenenererenenererenenerenente 


ITTITI ITT t LiL tittiittiiitiiitiiiiiiiiiiiiiiiiiiiiiiii 


sWRITE egy vVC=1 COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 


31S COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
ARE THEY EQUAL 


» IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
:SOFT ERROR, = CHECKING THE 


sREAD REVERSE DATA COMMAND 

STSSR INCORRECT AFTER READ DATA 
TRAP CSERSOF T 
eWORD 575 
»~WORD WRTERR 
WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


jeeneeneeneencccencesceetneneerecenenteenasnanntantenranntensaneens 


< aneneeeenenececerercecenecerecenereeneencreenrennsentaeereeeneeess 














050172 
:WRITE DATA,ACK,CVC=1 COMMAND 
050170 MOV #140008, T24PK3 
MOV = #T24PK2, 
65$: MOV aS Tesi 
- MOV R4. TSDB(RS) 
JSR PC. WAIT 
MOV TSSRCRS) RI 
MOV = #SSR,R2 
CMP sé, R2 
BEQ 75$ 
JSR PC, FATCHK 
ERRSOFT ERRNO,WRTERR,PKTSSR 
758: CKLOOP 
#256. ,R3 
050172 FREE, T24R 
SREAD REVERSE DATA, ACK COMMAND 
050170 MOV #100401 ,T24PK3 
165$: . "OV #T24PK35,R4 
MOV R3, 12482 
MOV 4, TSDBCRS) 
JSR PC. UAITF 
MOV TSSRCRS) RI 
MOV #SSR,R2 
CAP sé RD 
BEQ 1 
JSR PC, FATCHK 
ERRHRD ERRNO, T24TRL.PKTSSR 
170$:  CKLOOP 
050172 FREE, 126 


sREAD REVERSE DATA,ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
WAIT FOR SSR TO SET 


F OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER Se 


CSERHRD 
eWORD 576 
eWORD T24TRL 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP =: CSCLP'1 


sRECORD SIZE 
STARTING READ BUFFER ADDRESS 


SRSAAAA eee eeeeeeeeeeeeeeeeeeeeseeeeeaeeeeeeaeneanaeagaeesaeeaesaesasesess 


ee a he Nl ee Cel 


SEQ 205 | 


| 


| 
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TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 
aes READ REVERSE DATA,ACK COMMAND 
aris 047666 012737 050 70 PITTI iit tit tiitiiitiiiiiiitiiiiiiiiiiiiiiiiiiiiiiiiiit 
100401 1 #100401 , T24PK3 sREAD REVERSE DATA ack COMMAND 
B15 947700 010837 950176 = 2 ou Ser ur Bi ultw packet Anoness 
8416 047704 010465 177776 MOV R4, TSOBCRS) 
8417 047710 737 017106 JSR PC MALTS SWAIT FOR SSR TO SET 
8418 047714 016501 000000 MOV TSSR(RS), “GET TSSR CONTENTS 
8419 047720 4105 100204 MOV seem sc te1T2.R2 sSET UP EXPECTED 
8420 047726 10 CMP R1,R2 SARE THEY EQUAL 
8421 047726 1406 BEQ ; 
8422 04 004737 020064 JSR PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
8426 04 ERRHRD ERRNO, T24TRL.PKTSSR *TSSR INCORRECT AFTER READ DATA 
04 104456 TRAP CSERHRD 
04 001101 WORD 
052374 -WORD T24TRL 
011670 WORD PKTSSR 
200$: CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
013701 050074 MO’, T24BFR+14,R1 sGET MESSAGE BUFFER (sts) 
010102 MOV R1,R :SET UP EXPECTED 
052702 000001 Bis #B1TO,R2 sSET THE RIB BIT IN EXPECTED 
Oe 102 CMP R1,R2 SARE THEY EQUAL 
14 BEQ 210$ “BR, IF EQUAL (ALL IS WELL) 
004737 020064 JSR PC, FATCHK :INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24LOR,EXPREC sTHE RIB BIT WAS NOT SET IN  xst0 
104456 CSERHRD 
Seals TBORD 578 
050 WORD  T24LOR 
016330 WORD EXPREC 
210$: # ENDSUB $>>>>>>>>>>>> -— >>>>>>>>>>>> 
L : 
104408 P CSESUB 
oesTe 002170 000031 cMP FATFLG,@25. 31S ERROR COUNT AT 25 
$02 BLT sBR, IF LESS THAN 25 
004737 020136 JSR PC, CKDROP sTRY TO DROP THE UNIT 
004737 017340 JSR PC, TSTLOOP :DO WE NEED TO ITERATE TEST 
10 acc 163$ “BR, IF NO LOOP REQUIRED 
0001 041514 — J T24L00P SEXECUTE AGAIN 
EXIT TST sALL DONE Ti'!S TEST 
104432 TRAP CS$EXIT 
WORD 1£10056-. 





SEQ 206 


A EO Ee = 


——— ee 


8 1 





SEQ 207 
CZTUXAO TUBO FRONT END PRT B MACRO M1200 ?9-MAR-83 13:32 PAGE 113 
TEST 5: BASIC READ DATA (FORWARD AND REVERSE) 
8451 LOCAL STORAGE FOR THIS TEST 
8453 050034 -BLKB 1%-<.-TUV2A87> 
8455 050040 T24PACKET: sCOMMAND PACKET FOR TEST 
8456 050040 100204 -WORD 100204 “WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
8457 050042 050050 eWORD T24DATA “ADDRESS OF CHARACTERISTICS BLOCK 
8458 050044 000000 -WORD C 
8459 050046 000012 -WORD 10. sSTARTING VALUE OF BLOCK SIZE 
8460 050050 T24DATA: * CHARACTERISTICS DATA BLOCK 
8461 050050 050060 WORD T24BFR sADDRESS OF MESSAGE BUFFER 
050052 000000 -WORD 0 
050054 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
8464 050056 000000 -WORD 0 
8465 050060 T24BFR: .BLKW 25. sMESSAGE BUFFER 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
8470 050142 -BLKB 10°<.-TUV2A87> 
8472 050150 T24PK2: 
8473 050150 100206 eWORD 100206 sWRITE SUB SYS MEM COMMAND, IE AND ACK 
8474 050152 050200 -WORD T24BF2 “ADDRESS Or SELECT BLOCK DATA 
8475 050154 000000 WORD 0 
8476 050156 000006 -WORD 6. sSIZE OF DATA PACKET 


0160 -BLKB 10-<.-TUV2A87> 
8481 050170 T24PK3: 
ae 100205 T26RB WORD 100205 sREAD COMMAND, IE AND ACK 
8484 050172 003072 T24W8: .WORD FREE sADDRESS OF WRITE BUFFER 
8485 050174 000000 WORD 0 
8486 050176 000000 T2482: .WORD 0 sSIZE OF BUFFER (EXTENT) 
8487 EVEN 
8491 050200 T24BF 2: 
92 050200 010 724880: .BYTE 10 sBSELO AREA 
8493 050201 200 T248S1: .BYTE 200 *BSEL1 AREA 
8494 050202 000000 T246S2: .WORD 0 sSEL 2 AREA 
8495 050204 000000 T2483: .WORD 0 “DATA AREA 
EVEN 
$00 sTAPE MOTION PACKET COMMAND VALUES 
8501 050206 100005 T246RN: .WORD 100005 sREAD DATA (NEXT) 
an 10 100405 T24WDR: .WORD 100405 *READ DATA RETRY 
est 12 102005 T24CON: .WORD 102005 WRITE CONTINOUS 
8 050214 177777 WORD 177777 END OF DATA 
8505 050216 000000 T24DLY: .WORD 0 DELAY STORAGE AREA 


— ae eS LL LL Le 


¢c 1 


Q 
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te 
sLOCAL TEXT MESSAGES FOR TEST 





116 105 106 C1Z ‘NEF Not Set After NON-EXECUTABLE FUNCTION’ 

122 111 102 ASCIZ ‘RIB Not Set After READ REVERSE Into BOT’ 

124 123 123 ASCIZ ‘TSSR Net Correct After Illegal Buffer Address Bits Set' 
124 123 123 ASCIZ ‘TSSR Not Correct After NXM ry Address In Packet’ 

8518 050515 124 125 123 ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 

8519 050572 111 154 154 ASCIZ ‘Illegal Address Bits. Failed To Set ILA Bit In xsSTO" 

520 050656 111 154 154 ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xSTo° 
8521 050737 122 105 101 .ASCIZ ‘READ COMMAND Not Accepted’ 

8522 050771 124 123 123 .ASCIZ ‘“TSSR Not Correct After WRITE DATA Command’ 
051043 124 141 160 ASCIZ ‘Tape Not At BOT After REWIND Command’ 
8524 051110 104 141 164 ASCIZ ‘Data Written To Tape Not Equal To Data Read From Tape" 
8525 051176 122 105 101 ASCIZ ‘READ DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
8526 051253 124 123 123 ASCIZ ‘TSSR Not Correct After READ COMMAND Reject® 
8527 051326 122 145 167 ASCIZ ‘Rewind (POSITION) Command Not Accepted 
528 051375 122 101 115 ASCI1Z ‘RAM Error, Correct Data Pattern Not In Ran’ 
051450 124 123 123 ASCIZ ‘TSSR Init. Failed After READ COMMAND’ 
051515 104 162 151 ASC1Z ‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR’ 
531 051570 124 123 123 .ASCIZ “TSSR Not Correct After READ DATA Command, SWB Bit Set’ 
051656 124 123 123 ASCIZ ‘TSSR Not Correct After READ DATA Command’ 
8535 051727 103 126 103 eASCIZ ‘CVC Set, Didn''t Reset VCK In Message Buffer’ 
02208 124 123 102 ASCI2 ‘TSBA Not Correct After READ DATA Command’ 
8535 05205 127 122 111 .ASCIZ “WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)" 

536 052142 122 145 141 ASCIZ ‘Reading Long Record Failed To Set RLL Bit In xXSTO" 

537 052224 122 145 141 ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO° 
8538 052 122 145 163 .ASCIZ "Residual Byte Count Incorrect After Short Record Read’ 
8539 052374 122 145 141 ASCIZ ‘Reading Long Record Failed To Give Tape Status Alert’ 

102 141 163 .ASCIZ ‘Basic Read Dats (Forward and Reverse)’ 


ore 052462 


SROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 


T24REST: 
SA 


VREG sSAVE THE REGISTERS 
MOV @T24PACKET,RI “START OF THE PACKET 
MOV a AUNT: “WRITE SUBSYSTEM MEM. WITH ACK, 
MOV #T24DATA, (RI)* “ADDRESS OF CHARAISTICS DATA BLOCK 
54 CLR (R1)+ SEXTENDED ADDRESS 
8555 MOV @i0.,(R1)4 “SIZE OF DATA BLOCK IN BYTES 
556 MOV @T24BFR,(R1)+ “ADDRESS OF MESSAGE BUFFER 
55 CLR (R1)¢ 
$58 mOV #20.,(R1)¢ SLENGTH OF MESSAGE BUFFER 
855 CLR CR1I)+ 
S30 mOV #0, (R1) sSELECT DRIVE ZERO 
56 MOV #26. ,R2 “NUMBER OF LOCATIONS TO BE CLEARED 
050060 64$: MOV #177777, T24BER(R2) “ALL ONES TO MESSAGE BUFFER 
TST =(R2) “NEXT LOCATION 
36 CMP #0.R SCKECK FOR END OF LOOP 








CZTUXAO TUSO FRONT END PRT B 


TEST 5: 
8566 052620 
8567 








052714 


000207 


ote 


050170 
000000 
000000 
000000 


T24RT2: 


T24RT3: 


RTS 





ob 1 


MACRO #1200 ies 13:32 PAGE 114-1 
BASIC READ DATA (FORWARD AND REVERSE 


PC 


#T26BF2,(R1)+ 
recat) 

aT ekBr2,m1 
a 


#T26PK5,R1 


sRETURN 


sSAVE THE pa gh 
TART OF THE P 





Ee 


3$ CKET 
WRITE SUBSYSTER MEM. WITH ACK, IE 
BLOCK 


s ADDRESS o* DATA 
SEXTENDED ADDRESS 
sSIZE OF DATA BLOCK IN BYTES 


POINT TO DATA SEL AREA 





;RETURN 


a. THE REGISTERS 
set eAR OF THE PACKET 


AREA OUT 
ADDRESS OF DATA BLOCK 
EXTENDED ADDRESS 
eae, DATA BLOCK IN BYTES 


110056: 
TRAP 


CSETST 


SEQ 209 











TEST 6: 


CZTUXAO TUBO FRONT END PRT B 
MANUAL INTERVENTION 





eas ee - 


S..5 
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-SBTTL TEST 6: MANUAL INTERVENTION 


:THE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A ‘“‘TEST’” 
[THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTiONS OF 
[THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE ONE. 
sTHIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SSUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

; THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 

ARE BY TYPING <CTRL-C> OR SELECTING CODE 35. 
; SELECTION CODES AND SUBROUTINES ARE: 










CODE ROUTINE 
0 HELP. PRINTS THIS MENU. 
4 REWIND AND UNLOAD COMMAND TEST 
2 WRITE-PROTECT TEST 
3 EXIT (RETURN TO SUPERVISOR) 


sEACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 


sPRINTS OUT THE MENU ON THE CONSOLE TERMIN“\. 


~§ 
= 
fae 
ww 

ie 

ore 

ds 

e 

col) 


TINE INSTRUCTS THE OPERATOR TO PLACE THE DRIVE ON-LINE 
YOND BOT. THE TEST WILL THEN ISSUE THE REWIND AND 
“ot Sue. TELL THE OPERATOR IS THE DRIVE 





| 
S 
: 
2 





; THIS a. INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 

















TAPE REEL T DOES NOT HAVE A 5 ee eats RING INSTALLED, THEN 

[WAITS FOR THE OPERATOR TO RESPOND 1 “aaxe HAS BEEN ACCOMPLISHED. 

sUPON THE RE HE PROGRAM An VERIFIES THAT THE T Up eng ae! SHOWS 

3A WRITE=PROTECTED "STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 

sTAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 

WRITE-PROTECTED. If THE APPROPRIATE TERMINATION IS NOT RECEIVED. 





AN ERROR IS REPORTED. 


BGNTST ie 
CLR FATFLG CLEAR FATAL ERROR FLAG 
CLR —s_-KTFLG sHOLD OF KT11 


TST TSTCNT _____i1§ THIS THE FIRST TEST 


SEQ 210. 


; 
ET A ET TT 


—————— Se + 


wee wee 


F 1 





















































SEQ 211. 
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TEST 6: MANUAL INTERVENTION | 

BEQ 21$ :BR, IF FIRST TEST | 
054550 MOV #T3BNE RO :"TEST NOT EXECUTED’ 
2 _ BR 3$ S JUMP IF NOT FIRST TEST 
055526 MOV #T30iD,RO 
7 017372 3$: PC, TSTSETUP 
021366 — 
053744 64$ 
000001 002162 19S: #1, TSTCNT 
228 IF YOU DON’ TO 
053744 a CUASN'T FIRST TEST IN SEQUENCE 
7 002170 $: FATFLG sCLEAR THE FATAL ERROR FLAG 
176750 053756 #65000. ,T38DLY <SET UP DELAY COUNTER 
7 016630 5$: pC -SOFINIT :D0 a SOFT INIT 
RO,R1 c CONTENTS oF TSSR REGISTER 
000200 #SSR,R1 sCHECK FOR T T 
6 001023 23$ sKEEP GOING IF NOT SET 
30 250 “CALL DELAY ROUTINE 
053030 012727 000250 mOV #250, (PC) 
053%34 WORD 
053036 013727 002116 MOV LSOLY,(PC)+ 
053042 000000 WORD 
053044 005367 177772 DEC -6(PC) 
053050 001375 BNE 74 
053052 005367 177756 DEC -22(PC) 
053056 001367 : BNE Os ig= 
8675 053060 005337 053756 DEC T38DLY sBUMP COUNTER DOWN 
8676 053064 001352 BNE 5$ sBR, IF MORE TIME LEFT 
8677 053066 ERRDF ERRNO, SFIERR.SFIMSG “REPORT FATAL ERROR 
0530 
Oo epee 
05307 WORD 
8678 053076 700 055552 23S: MoV SMIMENU,RO sMENU OF MANUAL INTERVENTIONS 
8679 053102 000006 mOV #6,R1 “MAXIMUM ALLOWED SELECTION 
0531 021144 JSR PC,GETSEL °60 GET THE OPERATORS SELECTION 
8681 053112 MOV RO,R4 *GET NUMBER FROM ROUTINE 
053114 ASL RG ; CONVERT TO WORD OFFSET 
053116 053122 JMP a6$(R4) > JUMP TO PROPER LOOP 
8684 05 1¢e 6$: .WORD 28 ;RETYPE THE MENU 
5 0531 .WORD 208 > 3 REWIND AND UNLOAD COMMAND TEST 
8686 053126 053464 .WORD 25% > & WRITE PROTECT 
7 053130 053744 .WORD 638 > 6 LEAVE THE TEST 
8689 
8690 053132 208: PRINTF #T38MS4 sTELL"EM WHAT TO DO 
053132 012746 055144 #T3BAS4 ,-(SP) 
053156 012746 000001 #1,-(SP) 
053142 010600 SsP,RO 
053144 104417 CSPNTF 
05 138 geeree 000004 ADD #4 SP 
8691 053152 004 016630 2228: ;D0 SOFT INIT OF CONTROLLER 
8692 053156 103405 OR If AR OK 
8696 053160 010001 : ) . snc eepemaaneneas ssc 





——— 


————— nd LE EL TIT, 
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8697 oes tes 
053162 104455 
3164 0011352 
053166 003550 
053170 011656 
8698 053172 
8699 053172 012704 054470 
8700 053176 004737 0103522 
8701 0535202 103405 
8705 05 010001 
8706 05 
05 104456 
053210 0011355 
053212 004754 
053214 011656 
Soasre 
8708 053216 012737 000144 
8709 053224 036527 000000 
8710 053232 001431 
1 053234 
OF asic 012727 000250 
053240 000000 
Orasee 013727 002116 
053246 
053250 005367 177772 
053254 0013575 
053256 005367 177756 
053262 001567 
8712 bebe a 005337 055756 
8715 053270 001555 
8714 Oo eses 
053272 012746 055110 
05376 012746 000001 
053 010600 
Oaths 104417 
05 062706 000004 
8715 053312 000137 0535152 
8716 055316 
05 012746 055225 
053322 012746 000001 
05 010600 
05 104417 
8 706 000004 
717 012704 054520 
718 05 010465 177776 
8719 05 004737 017104 
8720 053352 016501 000000 
8721 05 012702 0003500 
ores 05 1 
05 001404 
8727 05 
4 
mM fy Bs8ib0 
104406 


6 1 
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053756 
000100 311$: 


3158: 


320$: 


350$: 


ERRDF 


DELAY 


DEC 
BNE 
PRINTF 





BEQ 35 
ERRHRD ERRNO, TS8SST.PKTSSR 


CKLOOP 


ERRNO, SFIERR, SF IRSG 


#T3BPK2,R4 
PC WRTCHR 
310$ 
RO,R1 
ERRNO, WRIMSG, SF IMSG 


#100. ,T358DLY 
TSSRERS) ,#OFL 
315$ 


250 


TS8DLY 
11$ 
#TS8OFL 


2228 
#T38hS5 


#T38PK3.R4 
R4, TSDB(RS) 
PC WAIT 
TSSRCRS) RI 
@SSRIOFL RZ 
R2 RI 




















SEQ 212 | 
DEVICE FATAL ERROR DURING INIT | 
TRAP —- CSERDF 
-WORD 602 
.WORD SFIERR 
-WORD SFIMSG 
sSUBROUTINE NEEDS PACKET ADDRESS 
SISSUE WRITE CHARACTERISTICS 
BR, IF COMMAND ISSUED OK 
SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTISC FAILED 
. WORD 
.WORD 
;SET UP FOR A LONG WAIT 
31S DRIVE OFF-LINE 
IF DRIVE IS ON-LINE 
:DELAY ABOUT .25 S$ 
MOV #250, (PC)+ 
-WORD 
MOV —s_ LSDLY, (PC) 
. WORD 
DEC 6 (PC) 
BNE 4 
DEC = = 22 PC) 
BNE - 
BUMP LONG DELAY COUNTER DOWN 
3BR. IF MORE LONG DELAY TO GO 
“DRIVE 1S NOW OFF-LINE” 
#T380FL.-(SP) 
MOV 0 s«#1,=(SP) 
MoV SP 
TRAP - CSPNTF 


ADD #4 .SP 
gSTAY HERE FOREVER, WITH MESSAGE 
“DRIVE SHOULD NOW REWIND AND GO OFL' 
MOV #T38MS5 .-(SP) 


MOV #1,-(SP) 
MOV SP,RO 
TRAP -SPNTF 
ADD #4 ,SP 
sSET UP NEW PACKET FOR REWIND/RELEASE 


: REWIND arb awe change ve" 
WAIT TO SET 


CSERHRD 


SLOOP ON ERROR, IF FLAG SET 


a aa = _ 


4 7 



























SEQ 213 | 
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TEST 6: MANUAL INTERVENTION | 
8729 053400 016501 000000 MOV TSSRCRS) RI sREAD TSSR STATUS | 
8730 058404 032701 000100 BIT ‘RI “CHECK THE OFF-LINE BIT | 
8731 053410 001011 BNE “BR, IF ORIVE 1S OFF-LINE 
8732 053412 PRINTF #™3BONL :""DRIVE IS NOW ON-LINE’ 
053412 012746 055046 MOV #1 380M. . (SP) 
053416 012746 000001 MOV #1,=¢ 
053422 010600 MOV PRO 
053424 104417 TRAP —- CSPNTF 
053426 062706 000004 ADD #4 .SP 
8733 053432 000410 BR 390$ SALMOST DONE 
8734 053434 380$: PRINTF #T3BOFL :"DRIVE IS NOW OFF-LINE" 
053434 012746 055110 MOV #T380FL,-(SP) 
053440 012746 000001 MOV #1 ,-(SP) 
053444 010600 MOV SP.RO 
053446 104417 TRAP °SPNTF 
053450 062706 000004 ADD 4, $P 
8735 053454 005037 002172 390$: CLR INTRECV sCLEAR INTERRUPT FLAG 
8736 O3eee0 000137 053000 JMP : GA 
8737 053464 25$:  GMANIL T38MSG,T38DAT,-1,NO “WAIT FOR OPERATOR TO MOUNT TAPE 
053464 104443 TRAP 
053466 000404 BR 
053470 056024 WORD 
72 000120 ; 
053474 055430 “WORD 
053476 177777 “WORD 
053500 1 
8738 053500 BNCOMPLETE 25$ SRETRY IF ERROR 
$00 103371 Bcc 25$ 
8739 053502 005737 056024 TST T38DAT :DID OPERATOR SAY ‘YES* ? 
8740 053506 001002 BNE 27$ “BRANCH IF YES 
8741 053510 000137 053000 pan JMP 2$ “RETURN TO MAIN MENU 
053514 004737 016630 JSR PC, SOF INIT :D0 SOFT INIT OF CONTROLLER 
8744 053520 103405 acs 400$ “BR IF SOFT INIT = OK 
8748 0535 : 010001 MOV RO,R1 “SAVE CONTENTS OF TSSR 
8749 053524 ERRDF ERRNO, SFIERR,SFIMSG “DEVICE FATAL ERROR DURING INIT 
053524 104455 TRAP CSERDF 
001135 .WORD 605 
053530 003550 “WORD  SFIERR 
053532 011656 "WORD  SFIMSG 
8750 0535 400$:  CKLOOP SLOOP If SELECTED 
534 104406 TRAP  CSCLP1 
012704 054470 MOV #T3BPK2,R4 *SUBROUTINE NEEDS PACKET ADDRESS 
004737 010322 JSR PC .WRTCHR SISSUE WRITE CHARACTERISTICS 
103405 Bcs 4108 “BR, IF COMMAND ISSUED 
5 010001 MOV R0,R1 SSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG, SF IMSG “WRITE CHARACTERISTISC FAILED 
104456 CSERHRD 
001136 TeORD 606 
56 004754 "WORD  WRTMSG 
053560 011656 “WORD  SFIMSG 
410$:  CKLOOP sLOOP IF SELECTED 
104406 CSCLP1 
013701 054014 T3BFR+6,R1 sPICK UP xsto CONTENTS 
010102 F 3SET UP p 
0535 702 000004 gpit2,R2 :SET UP SHE WRITE LOCKED BIT 
76 020102 R1,R ssaeeae ena ee 





CZTUXAO TUSO FRONT END oh 
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8764 053600 001406 
8768 05 
05 
05 
05 
05361 
8769 Oaaerg 053000 
8770 05361 
05361 
8771 05 
05 055470 
053624 000001 
05 
03 000004 
8772 05 127226 
05 054540 
8774 053652 177776 
8775 053656 7 017104 
8776 05 000000 
05 100206 
8778 053672 
779 053674 
8783 053676 
053676 1044 
05 001140 
05 A's 054625 
033706 011670 
8784 4 706 
tT 1044 
HF at 013701 054014 
010102 
8787 033716 052702 004000 
8788 053722 020102 
8789 053724 001404 
537 
05 104456 
053750 001141 
05 054752 
0 016330 
053736 104406 
8795 053740 000157 053000 
799 053744 
8800 055744 
3744 104432 
053746 570 
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054542 


BEG 4308 
ERRHRD ERRNO, TSBWRL .EXPREC 


JMP 2$ 
430$: CKLOOP 
PRINTF #T38WOK 
435$: MOV @FREE, TS8WR 
MOV aT & RS 
MOV R4, TSDB(RS) 
JSR PC ,WAILTF 
MOV TSSRCRS) RI 
OV #SC'SSR!BIT1!B1T2,R2 
CMP R1,R2 
BEQ 44 
ERRHRD ERRNO, TSSWRTPKTSSR 
440$: CKLOOP 
MOV T3BBFR+6,R1 
MOV R1R 
BIS #Biti1,R2 
CMP R1,R2 
BEQ 45 
ERRHRD ERRNO, TSSULE ,EXPREC 
4503: CKLOOP 
JMP 2$ 
63S: 
64$: EXIT TST 


:¢ 
SLOCAL TEXT MESSAGES FOR TEST 


sLOCAL STORAGE FOR THIS TEST 


SE 


seo 216| 


IF AL 
;"WRITE LOCKED BIT IS oa — etc." 


SBR, IF ALL IS WELL (OK) | 
CSERKRD | 





TSBWRL 
WORD  EXPREC 
sBECAUSE OF ERROR GO BACK TO MENU 


SLOOP IF SELECTES 
CSCLP1 


TRAP 
SPRINT "DRIVE IS WRITE PROTECTED" 

MOV #TSBWOK ,- (SP) 
#1,-(SP) 





s ARE 
3BR, IF CORRECT ATUS 
:“TSSR INCORRECT AFTER ye BE COMMAND 





CSERHRD 
GORD 
WORD T38URT 
-WORD PKTSSR 
sLUOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


sREAD XSTO CONTENTS 
sSET UPR EXPECTE 
sSET THE 9 ee ERROR BIT (xXSTO) 


sWAS THE BIT 
sBR, If IT WAS (GOOD) 
:"WRITE LOCK ERROR BIT NOT SET" 
TRAP CSERHRD 
WORD 609 
-WORD TS8WLE 
WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
:GO0 BACK TO MENU 
sLEAVE TEST 
TRAP CSEXIT 
eWORD 110075-. 


A LE ET AIO 


3.7 
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3+ 
sLOCAL STORAGE FOR THIS TEST 


TEST 6: MANUAL INTERVENTION | 


11 
8812 055 000000 TTION2: -WOKD WORD SET IF SUPERVISOR TTI INTER OFF 
8813 053752 000000 TVSAV2: .WORD 0 ;SAVE TT] VECTOR 
aes 053754 000000 TPSAV2: .WORD 0 ;SAVE TTI PRIORITY 
8816 053756 000000 T38DLY: .WORD 0 sDELAY COUNTER FOR TEST 
8 053760 -BLKB 10-<.-TUV2A87> 
oes 055770 T3BPACKET: COMMAND PACKET FOR TEST 
1 053770 140006 eWORD 140006 [WRITE SUBSYSTEM MEM. CMD, ACK,CvC=1 
053772 054000 WORD TS8TAD ADDRESS OF CHARACTERISTICS BLOCK 
053774 000000 WORD 0 
3776 000012 WORD 10. sSTARTING VALUE OF BLOCK SIZE 
5 T38TAD ;CHARACTERISTICS DATA BLOCK 
54000 000 T38BS0: .BYTE 0 sBSELO BYTE 
1 000 T388S1: .BYTE 0 3BSEL1 BYTE 
54002 000000 T38BS2: .WORD 0 sBSEL1 WORD 
Pecos 000000 -WORD 0Q sDATA 
54006 T38BFR: .BLKW 150. MESSAGE BUFFER 
31 054462 000000 TS8EB: .WORD sEND OF BUFFER ADDRESS 
8835 054464 -BLKB 10-<.-TUV2A87> 
Ps 7 054470 T38PKe: :COMMAND PACKET FOR TEST 
0544 140004 WORD 140004 WHITE CHARA. MEM. C ACK,CvC=1 
8839 054472 054500 WORD TS8DTA SADDRESS OF SELECT DATA “BLOCK 
0 054474 000000 WORD 0 
054476 000012 WORD 10. sSTARTING VALUE OF BLOCK SIZE 
8844 0545 TS8DTA: sSELECT DATA BLOCK 
054006 WORD TS8BFR sADDRESS OF MESSAGE BUFFER 
54502 000000 eWORD 0 
54504 000400 eWORD 256. sLENGTH OF MESSAGE BUFFER 
054 000000 T38EAI: .WORD 0 sEAI BIT WORD 
05451 eBLKB 3 10-<.=-TUV2A87> 
0545 140412 T38PK3: .WORD 140412 REWIND AND UNLOAD COMMAND 
054522 000000 WORD 0 sNOT USED 
054524 000000 WORD 0 USED 
Eat 000000 -WORD 0 NOT USED 
8857 054530 000000 -WORD 0 NOT USED 
58 “WRITE TAPE PACKET 





es 
J 
> 





532 -BLKB 10-<.-TUV2A87> 

8863 054540 T38PK4: .WORD 140005 sWRITE, ACK, CVC=1 oy 
8864 054542 T38UR: .WORD s ADDRESS OF WRITE BUFFER 
8865 054544 WORD 0 *MORE ADDRESS OF WRITE BUFFER 
oaee 054546 T38S1Z2: .WORD 256. SIZE OF RECORD 
$369 

70 

71 3¢ 
887? “LOCAL TEXT SAGES FOR TEST eee 


Kk 1 
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TEST 6: MANUAL INTERVENTION 


seo 216) 






} 
| 
| 
| 
“URITE LOCKED Bit Not Set In KSTO° 





8879 054550 123 164 14 eASCIZ "Stand-alone Manual Jacoruens (en Not Executed’ 
5 126 123 12 .ASCIZ ‘TSSR Not Correct After WRITE, With WRITE PROTECT On’ 
8881 054711 127 122 11 eASCIZ 
054752 127 122 11 eASCIZ WRITE LOCK ERROR Bit Not Set In xXSTO, After Attempted WRITE’ 
05 045 116 04 eASCIZ ‘“ZNZA ERROR Drive Is Still ON- LINE’ 
055110 045 116 04 eASCIZ *ENZA Drive Is « * OFF-LINE’ 
8885 055144 045 116 04 ASCIZ ‘“SZNZA Set Drive To On-line and At Or Beyond BOT’ 
8886 055223 045 116 045 .ASCIZ “SNZA Drive Should Now Rewind and Go Off-line’ 
055 103 157 15 ASCIZ ‘Contents Of TSSR Incorrect After REWIND And RELEASE’ 
Heth4 14 045 116 04 ASCIZ ‘“2ZNZAType RETURN To Return To MenuN° 
0554 111 163 040 eASCIZ ‘Is Wr te-Protected Tape Mounted’ 
055470 045 116 045 ASCIZ ‘“SNZA Drive Is Write Protected’ 
055526 115 141 156 oy "Manual Intervention‘ 
055552 055570 WOR 1$,2$.5$,6$ 
055562 055760 ,10$,0 
055570 012 oo, OPERATION FROM FOLLOWING OPTIONS: ° 
5642 012 <12>° 0 Display This 
56 Rewind and Unload Command Test’ 


2 Write Protect Test’ 
. 3 Return to Diagnostic Supervisor’ 


3+ 
“LOCAL STORAGE FOR THIS TEST 
T38DAT: .WORD 0 LOGICAL RESPONSE TO QUESTION 
T3BREST: 
SAVREG sSAVE THE REGISTERS 
MOV #T3BPACKET,R1 “START OF THE PACKET 
MOV #140206, (R1)+ “WRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
MOV #T3BTAD, (R1)¢ SADDRESS OF DATA BLOCK 
CLR (R1)¢ SEXTENDED ADDRESS 
MOV #6.,(R1)+ °SIZE OF DATA BLOCK IN BYTES 
CLR (RIS+ *CLEAR BSELO AND BSEL1 
CLR (R1)+ SCLEAR SEL2 
CLR (RI) “CLEAR DATA AREA 
RTS Pc SRETURN 
da 
“THIS ROUTINE PRINTS THE CONTENTS OF 
: THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


e 
: 
2 T: s 
& 
— Se A LAL LAL LLL 





ae 
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SEQ 217 | 





LOW ORDER ADDRESS OF MESSAGE BUFFER | 
RI HIGH ORDER ADDRESS OF MESSAGE BUFFER | 
NOTE: R1 1S IGNORED IF KTENABLE FLAG IS CLEAR 








SAVREG sSAVE THE REGISTERS 
mov —s ROR “SAVE LOW ORDER ADDRESS 
003102 TST K TENABLE “ADDRESS ABOVE 28K? 
BNE 910$ “BR IF YES 
CLR R1 °SET HIGH ORDER ADDRESS TO 0 
910$: MOV R1,R3 “SAVE HIGH ORDER ADDRESS 
ROL RO “SHIFT BITI5 TO C BI 
ROL R1 “SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX #T3BASO.R1.RS PRINT MESSAGE BUFFER ADDRESS 
MOV sé, = (SPD 
MOV sa = (SP) 
056366 MOV #T38AS0,-(SP) 
000003 MOV 0s«#3, (SP) 
MOV SP,RO 
TRAP  CSPNTX 
2706 000010 ADD —s«-«# 10, SP 
PRINTX #T38AS1 :PRINT HEADER FOR CONTENTS 
056433 MOV ss: #T3BAS1,-(SP) 
000001 movVséd#'1,"°(SP) 
MOV SP,RO 
TRAP  CSPNTX 
000004 ADD «#4, SP 
mov —s-«aRS RI sCOPY LOW ORDER ADDRESS 
MOV R3,RO “COPY HIGH ORDER ADDRESS 
BEQ 913$ “BR IF NOT ABOVE 28K 
020252 JSR PC, SETMAP “SETUP PAR ADDRESS IN RO 
; “GET PAR FORMAT ADDRESS ABOVE 28K 
056534 913$: MOV 5, T3BCNT [HOLD ADDRESS 
911$: MOV CRS) RG [GET BUFFER ENTRY 
125252 CMP 0 s«# 125252, R4 “CHECK FOR NO LOAD CONDITION 
BEQ0ttiéi82S BR. IF BUFFER WASN'T LOADED 
MOV R4,R3 COPY 
170377 BIC #170377 ,R4 “ONLY BITS 11,10.9 AND 8 ARE SAVED 
CLC *CLEAR y 
ROR R4 711 T0 10 BIT POSITION 
ROR Ro 710 T0 9 BIT POSITION 
ROR —s_-RS °9 TO 8 BIT POSITON 
ROR R4 °8 TO 7 BIT POSITION 
177760 BIC #177760, R3 “ONLY BITS 3.2.1 AND 0 ARE SAVED 
ADD AR :"OR'EM TOGETHER 
325 MOV na. (RS) “PUT BACK IN BUFFER 
7? 054462 CMP —séRS , #T3BEB “END OF BUFFER YET 
BNE BR, IF NOT AT END YET 
056534 9128: MOV TSBCNT RS zPUT ADDR ESS BACK 
00000 v °STAR reve NUMBER T ONE 
915$:  PRINTX #TSBASN,R4,(RS5)¢ T MEM BUFFER W/NEWL INE 
HOV (RS) +,<(SP) 


MOV R4,-(SP) 


056510 ov  _#TSRASN.~(SP) 





~——e ee 


nH 1 














SEQ 218 
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056262 012746 000003 MOV #3,-(SP) 
010600 MOV $P,.RO | 
104415 TRAP — CSPNTX 
062706 000010 Aon #10,SP 
or 005037 056534 CLR T38iNT CLEAR COUNTER 
056 000412 BR 1$ sSKIP OTHER PRINT 
8974 056 920$: PRINTX #T38ASC,R4,(R5)+ sPRINT THE CONTENTS OF MEMORY BUFFER 
056 012546 MOV (R5)+,-(SP) 
056 010446 R4,-(SP) 
056310 Hoy 056471 avSBASC,-(SP) 
056314 012746 #3,-(SP) 
056 010600 SP,RO 
056 106415 CSPNTX 
056324 ps ih 000010 #10,SP 
8975 056 237 956534 921$: INC T3ECNT : 
8976 056 se 005204 INC ; NUMBER 
8977 056336 020427 000200 cme R4,#128. ; 
8978 056 2 003010 BGT 508 BRANCH IF AL 
8979 023727 056534 000004 cMP T3B8CNT #4 DONE FOUR YET 
056352 001401 BEQ 925$ sBR, IF THREE DONE 
1 peat Er 000753 BR 9208 sKEEP GOING 
ore 56 005037 056534 925$: CLR T38CNT ;CLEAR COUNTER 
898 eite 733 915$ sPRINT WITH NEW LINE 
¢ 0 000207 50$ RTS PC sRETURN 
s0766 045 116 "ZNZA Message Buffer Address = 2%012%05° 
898 3 045 116 T38AS1: "ZNZA Message Buffer Contents: ° 
71 045 101 T38ASC: *ZA ZA: 203° 
9 056510 045 116 T38ASN: "ZNZA ByteZD4ZA: %03° 
1 tt 000000 T38CNT: .WORD sCOUNTER FOR PRINT 
8992 0565 ENDTST 
tt yg L10073: 
0565 104401 TRAP CSETST 


EE 


nN 1 
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SEG 219 


899% \SBTTL TEST 7: CONFIGURATION TYPEOUT 
8996 THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINA 
8997 “THE CONFIGURATION OF THE M7454 MODULE AND TuvOS SUBSYSTEM. SPECIFICALLY, 
8998 “THE FOLLOWING INFORMATION IS PRESENTED: 
9000 ; 
9001 3 
o008 + 1.0 MICROCODE REVSION LEVEL OF THE M7454, 
9004 ° 2.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 
9006 : 3.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
9007 : OF EACH CONNECTED TRANSPORT. 
3008 
9010 “THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
9011 :THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
901g “THAT IT "'SEES'’ TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
901 “THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 
9014 “CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.). 
9015 SESINCE THE CONTROLLER CAN ONLY ACCESS UNIT 0 1F IT IS IN “STANDAR " 
9016 RAM WILL FORCE THE E XTENDED MODE V 
9017 swRiTe SUBSYSTEM MEMORY COMMAND IN ORDER 10 SCAN FOR CONNECTED A TRANSPORTS. J 
9019 
9020 “THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLEVED, WILL EXIT BACK TO THE 
9021 DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
90 é “SELECTED (E.G., THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
90 3 ;REENTERED $0 that THEIR CONFIGURATIONS CAN BE PRINTED. 
3 § 056540 BGNTST 
56540 T7:: 
9026 56540 005037 002170 CLR FATFLG CLEAR FATAL ERROR FLAG 
7 056544 005037 003100 CLR KTFLG sHOLD OF KT11 
9032 056550 005737 002162 TST TSTCNT 1S THIS FIRST TEST IN SEQUENCE ? 
9033 056554 001403 BEO 10$ “BR, IF FIRST TEST 
90 56556 012700 057773 MOV #TSONE RO :TEST NOT EXECUTED’ 
§ 056562 000402 BR 11$ JUMP OUT OF TEST IF NOT 
90 36 012 060432 10$: MOV #TST39ID,RO “TEST 10 MESSAGE 
0047 ? 017372 11$: JSR PC, TSTSETUP :DO THE COMMON SETUP 
90 7% 737 021366 JSR PC. CHKMAN 1S MANUAL INTERVENTION ALLOWED? 
90 10 2 BCS 15$ “BR, IF MANUAL INTERVENTION ALLOWED 
0 137 057202 JMP 64$ JUMP TO OUT IF NOT 
2787 000001 002162 15$: CMP #1, TSTCNT 1S THIS THE FIRST TEST IN SEQ 
é & 001402 BEQ 20$ “BR, IF FIRST TEST 
9045 0 000137 057202 a JMP 64$ “JMP IF IT WASN'T 
9045 737 016630 JSR PC, SOF INIT DO SOFT INIT OF CONTROLLER 
103405 BCS 25$ “BR IF SOFT INIT = OK 
9050 010001 MOV RO,R1 “SAVE CONTENTS OF TSSR 
9051 0 ERRDF ERRNO,SFIERR,SFIMSG “DEVICE FATAL ERROR DURING INIT 
104455 RAP CSERDF 
0566 1275 TOORD 701 
0 550 "WORD SFIERR 
056640 011656 “WORD SF INS 


9052 056642 25$: CKLOOP :LOOF nici paaeialh 
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: CONFIGURATION TYPEOUT 


057720 
7 010322 


057242 
177700 
060370 


060370 
060315 
000002 


000006 
7 0166350 


057720 
7 010322 


002150 
000000 
000100 


002150 
060052 


000006 
057162 


CKLOOP 


MOV 
BIC 


MOV 
PRINTX 


CKLOOP 
MOV 
JSR 
BCS 
MOV 
ERRHRD 


CKLOOP 
CLR 
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satan 
ie 


RO,KI 
ERRNO, ,WRTMSG, SF IMSG 


TS9BFRE4 RI 
#177700,Ri 


R1,T39RL 
#TSOMCL.T39RL 


PC, SOF INIT 
140$ 


RO.R1 
ERRNO, SFIERR, SF IMSG 


#TS9PK2 RS 

PC ,WRICHR 

rye 

ERRNO .WRTMSG, SF IMSG 


UNITN 
TSSRCRS) RI 
#OFL RI 


#T590F 2 UNITN 


JmP 638 0. 
200$:  PRINTX #T390N2,UNITN ="DRIVE NUMBER XX 1S ON-LINE’® 


ose ee -_—- 


SEQ 220 


TRAP CSCLP1 
;SUBROUTINE NEEDS PACKET ADDRESS 
SISSUE WRITE CHARACTERISTICS 
OMMAND ISSUED OK 





sBR, 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC — 








sLOOP IF SELECTED 


RAP 
sPICK UP THE RES. BYTE CNTR AREA 
ZONLY LEAVE MICROCODE REV LEVEL 


sLOAD UP REV LEVEL 
MICROCODE REVISION a =000XXxx°"" 














TSORL ,- (SP) 
MOV 
MOV #2,-(SP) 
MOV SP,RO 
po gly 
300 SOFT og OF CONTROLLER 
BR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
SDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
-WORD 705 
WORD SFIERR 
. SF IASG 
sLOOP IF SELECTED 
CSCLP1 
SUBROUTINE NEEDS PACKET ADDRESS 
+ yg WRITE CHARACTERISTICS 
F COMMAND ISSUED OK 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTISC oy 
CSERHRD 
"GORD 704 
WORD WRTMSG 
WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CSCLP1 


sSET TO DRIVE 9 
:GET TSSR STATUS 
CHECK FOR OFF-LINE 


OR 
BR. IF DRIVE IS ON-LINE 
;“DRIVE NUMBER XX IS OFF-LINE" 
MOV fy a -(SP) 


MOV SP, 

TRAP © CSPNTX 

A950 #6,SP 
300 NOT TRY TO GET ANYMORE INFO. 


EEE 


emcee ee 





Cc 2 | 
SEQ 221 | 
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TEST 7: CONFIGURATION TYPEOUT 
057050 013746 002150 MCV elt 
057054 012746 060116 MOV at 590N2. -(SP) 
7060 012746 000002 MOV #2,°(SP) 
057064 01 MOV SP,RO 
057066 104415 RAP CSPNTX 
057070 0627 000006 .SP 
9091 057074 013701 057244 MOV TS9OBFR*6,R1 sREAD EXTENDED STATUS (xXSTO) 
0571 032701 000004 BIT #BiT2,R1 s1S DRIVE WIITE PROTECTED 
057104 001013 BNE 0 7BR, If WRITE PROTECTED 
9094 057106 PRINTX #T39WPN,UNITN : "DRIVE NUMBER IS NOT WRT PRO’ 
057106 013746 002150 MOV Unt Tw< ($7) 
057112 012746 060234 MOV pe (SP) 
057116 012746 000002 MOV #2,°( 
057122 01060¢ MOV RO 
057124 104415 TRAP CSPNTX 
0571 062706 000006 ADD #6,SP 
9095 057132 000413 BR 63$ SKIP OVER 
9096 057134 2108: PRINTX &#T39WRT,UNITN :DRIVE NUMBER XX 1S WRT — 
057134 013746 002150 UNITN,-(SP) 
057140 012746 060161 nov #TS9WRT ,-(SP) 
057144 012746 00000 MOV #2,-(SP) 
057150 010600 MOV SP, 
057152 104415 TRAP CSPNTX 
057154 062706 000006 ADD #6,SP 
9097 057160 000400 8a 63$ sBR, IF NO MORE DRIVES 
057162 63$: PRINTX #T39ONFL sNEW LINE 
057162 012746 057770 MOV #TSONFL.-(SP) 
57166 012746 000001 MOV #1,-(SP) 
057172 010600 MOV SP RO 
057174 104415 TRAP CSPNTX 
057176 062706 000004 D #4,SP 
9099 057202 648: EXIT TST sEXIT THIS SECTION 
05 104432 TRAP CSEXIT 
e100 057206 001254 WORD 110074-. 
29 
9101 sLOCAL TEXT MESSAGES FOR TEST 
9102 7° 
9103 
9104 sLOCAL STORAGE FOR THIS TEST 
ite . 
SOP 057 000000 T39DLY: .WORD 0 sDELAY COUNTER FOR TEST 
9109 057210 , 10-<.-TUV2A87> 
9117 OS TS9OPACKET: sCOMMAND PACKET FOR TEST 
ae 05 140006 SWRITE SUBSYSTEM MEM. CMD, ACK,CVC=1 
ay 4 2 oa sADDRESS OF CHARACTERISTICS BLOCK 
9115 10. sSTARTING VALUE OF BLOCK SIZE 
9116 > CHARACTERISTICS DATA BLOCK 
9117 0 sBSELO BYTE 
9118 1 0 *BSEL? BYTE 
9119 0 iBSELt WORD 
2 es 0 :DAT 
9121 150. ‘MESSAGE BUFFER 
3133 
91 
9125 057712 .BLKB  10-<.-T 7> : - 


-_ 


— eee 


as 
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TEST 7: CONFIGURATION TYPEOUT 


SEQ 222 


9127 0577 T39PK2: :COMMAND PACKET FOR TEST 
9128 05 140004 WORD 140004 SWRITE CHARA. MEM. CMND., ACK,CVC=1 
9129 057722 057730 WORD TS39DTA SADDRESS OF SELECT DATA BLOCK 
9130 057724 000000 WORD 0 
pa a 057726 000012 WORD 10. sSTARTING VALUE OF BLOCK SIZE 
913 
9134 057730 T39DTA: sSELECT DATA BLOCK 
9135 057730 057236 WORD TS39BFR “ADDRESS OF MESSAGE BUFFER 
9136 05 900000 WORD 
9137 05 000400 -WORD 256. ‘en OF MESSAGE BUFFER 
9138 057736 000000 T39EAI: .WORD 0 sEAI BIT WORD 
9140 057740 -BLKB 10-<.-TUV2AE7> 
oiee 057750 140012 T39PK3: .WORD 140012 sMESSAGE BUFFER RELEASE COMMAND 
ye 057752 000000 WORD 0 :NOT USED 
aa sWRITE TAPE PACKET 
9148 057754 -BLKB 10-<.-TUVZA87> 
9150 057760 140005 T39PK4: .WORD 140005 sWRITE, ACK, CvC=1 C 

7762 000000 T39WR: .WORD 0 sADDRESS OF WRITE BUFFER 

000000 ~WORD E ADDRESS OF WRITE BUFFER 





0 :MOR 
000400 T39SIZ: .WORD 256. SIZE OF RECORD 


3+ 
sLOCAL TEXT MESSAGES FOR TEST 











045 116 *Zn' 
123 164 "Stand-alone Configuration "Betting Not Executed’ 
045 116 SENZA Drive Number ZD2ZA Is Of f-Li 
045 116 "2NZA Drive Number ZD2ZA Is On-Li 
045 116 °"ENZA Orive Number ZD2ZA Is Write < 
91 045 116 'eNZA Drive Number ZD2ZA Is NOT Write Protected’ 
4 045 116 *ZNZA Wrase Microcode Revision Level =%02' 
000000 0 
174 
54 
9 3¢ 
9178 SLOCAL STORAGE FOR THIS TEST 
iH é 
9181 000000 T39DAT: .WORD 0 sLOGICAL RESPONSE TO QUESTION 
sd T3OREST: 
Sib GeRtsoorzror s72z SMES srsnsccerm tan ne 
9185 012721 140006 ROY #140006, (Ri)+ WRITE SUBSYSTEM MER. WITH ACK,CVC=1 
mee 01 7st 057230 an —-" DRESS OF DATA BLOCK 
EE adios 





— + - 
ELLE LLL 


LLL LLL 


CZTUXAO TUBO FRONT END PRT B 
TEST 7: CONFIGURATION TYPEOUT 


9188 060416 012721 000006 
9189 060422 005021 
9190 0606 1 
9191 060426 005011 
o138 060430 000207 
91 
9194 
9195 
9196 
9197 
9198 060432 103 157 
9199 
9200 060460 
060460 
060460 104401 


Es 
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156 







MOV #6. ,(R1)* SIZE OF DATA BLOCK IN BYTES 
CLR CR1)¢ ;CLEAR BSELO AND BSEL1 

CLR (R1)¢ sCLEAR SEL2 

CLR (91) CLEAR DATA AREA 

RTS PC ;RETURN 


oa 
sLOCAL TEXT MESSAGES FOR TEST 


TST39ID: eASCIZ ‘Configuration Typeout' 
EVEN 


ENDTST 
. L10074: 
TRAP  CSETST 


SEQ 225 | 


| 


: 


; 
_ ee ee ee ee 


TEST 8: 


9203 
9204 
9205 
9206 


9207 


S8 
o 
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SCOPE LOOPS 


A 


F 2 
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-SBTTL TEST 8: SCOPE LOOPS 


THIS 1S A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 


SEQ 224 


ee a one —_—— 


LOOPS'* USEFUL FOR er ae BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7454 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
: ON “LOOP ON TEST (SUBTEST)* FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
HARDWARE MAY NOT 













a ceed aed ed od od ed 
SNOUVULSwn— 


SELECTED BY THE AK 
HARDWARE DIP SWITCHES). 
AVAILABLE : 


CODE SCOPE LOOP 
HELP. DISPLAY THIS MENU. 
TSBA READ ACCESS 
TSSR READ ACCESS 
INITIALIZE. (TSeR WRITE ACCESS) 
TS E ACCESS 


SOB LOW 6 S 
TSSR BYTE WRITE (SELF-TEST) 
RETURN TO DIAGNOSTIC SUPERVISOR 


FOR SCOPE LOOPS THAT el by INTO eo al THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


Misi 


Se Ge Seo Ge Se Ge Ge Se Gs Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Be Fe Ge Se Se @e @e Ge Ge Ge 

















BGNTST i 
002170 CLR FATFLG SCLEAR FATAL ERROR FLAG 
003100 CLR —sKTFLG sHOLD OF KT11 
002162 TST TSTCNT 1S THIS FIRST TEST IN RUN ? 
BEO +6 CONTINUE TEST IF FIRST IN RUN 
061673 MOV —s-s«sT4 ONE, RO : UTED’ 
BR 100% 
061740 1$: MOV #TST4010,RO 
017372 1008: PC, TSTSETUP ETUP 
021366 PC. CRKMAN “SEE IF MANUAL INTERVENTION ALLOWED 
102$ CARRY SET IF INTERVENTION ALLOWED 
061156 64$ EXIT IF NO INTERVENTION 
000001 002162 1028: CMP a STSTCNT im THIS THe FIRST TEST IN SEQ 
061156 648 MP TO END OF TEST 
016630 28: PC, SOF INIT a0 A A SOFT INIT 
5$ “BRANCH IF OK 
RO,R1 S CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR, SF IMSG REPORT FATAL ERROR 





' 
Enns 











CZTUXAO TUSO FRONT END PRT 8 
LOOPS 








TEST 8: SCOPE 
060556 
060560 
060562 

9265 060564 
9266 060570 
9267 060574 
9268 060600 
9269 060602 
as 060604 
71 060606 
0606? 
9272 060614 
9275 
9274 
HL 0606 
6 060634 
Hs 1A 060642 
78 060646 
9279 060652 
9280 060656 
1 060662 
9282 060666 
060666 
060672 
9283 060674 
9284 060676 
85 060702 
86 060704 
87 060706 
88 060710 
9289 060712 
060714 
9291 060716 
060 





9514 


012711 
012700 
104441 


006304 
000174 
060544 
060722 
060730 


060736 
060752 
060766 


061002 
720 061156 


016500 
000775 


016500 
000775 


006737 
010001 
010165 
000775 


004737 
010001 
110165 
000 





177776 
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3$: 


177560 


177560 
4$: 


6$: 


38 


saa; 3G 38 


ASL 


e « 
38535333° 
a 





S ra 





#SCMENU,RO 
_— 

2s 

RO,R4 

#PR107 

TTION 

#100 ,a#TTICSR 
&$ 

TTION 

#100 ,a#TTICSR 
#TTIVEC.R1 
(R1) , TVECSAV 
#60$,(R1)+ 
senior iti 


25$ 
30$ 
35$ 
65$ 
TSBACRS) RO 
128 


TSSRCRS) ,RO 
18$ 





PC ,GETPAT 
ROR 
R1, TSSR(RS) 


228 


PC ,GETPAT 


Rt 
R1, TSDBH(RS) 
7 








801 
. SFIERR 
«WORD SFI 
MENU OF SCOPE LOOP SELECTIONS 
oe ALLOWED SELECTION 
360 GET THE OPERATORS SELECTION 
WAS ZERO SPECIFIED ? 
SREPEAT MENU IF YES. 
3SAVE THE MENU oO 
sRAISE THE PRIORITY 

















#PRIO7 RO 
CSSPRI 
sASSUME INTERRUPTS ARE ENABLED 
SARE TTI INTERRUPTS ON ? 
BRANCH IF YES 
sFLAG SET IF INTERRUPTS OFF 
ENABLE INTERRUPTS 
sSAVE THE 
SUSE PRIORITY SEVEN 
SLOWER INTERRUPT BR LEVEL 
MOV #PRIO0 RO 
CSSPRI 


T 
CONVERT TO WORD OFFSET 
: PROPER LOOP 


sTSSR WRITE ACCESS 

:TSOB HIGH BYTE WRITE ACCESS 
3TSDB LOW BYTE WRITE ACCESS 
;TSSR BYTE WRITE (SELF-TEST) 
SLEAVE THE TEST 


sREAD TSBA REGISTER 
LOOP UNTIL HALTED 


sREAD TSSR REGISTER 
LOOP UNTIL STOPPED 


sREAD THE DATA PATTERN 
sDATA PATTERN FOR LOOP 

WRITE DATA TO TSSR 
SLOOP 


:READ THE DATA. PATTERN 
SDATA PATTERN FOR LOOP 
SWRITE THE DATA TO TSDB. HIGH BYTE 


tiadad’ — 


SEQ 225 


DE eee -_—— 


a 
eal ann — 


TEST 8: 


9315 
9316 


66 004737 









SEFEK LOSSEFSNSSSRonw 





me uch adit ard ach acd 





et ah ah aod a ae aed ae as 


2 gaa 
Sw usar 
SSESESE FS 
eect we wold cod oP a 2% aed eh wah 


010001 
4 110165 
000775 


737 
010001 
110165 
012727 
000000 
013727 


005 
001375 
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7 000200 


H 2 
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000200 


MOVE 
DELAY 


Po .GETPAT 
RO,Ki 

R1, TSDBCRS) 
328 


PC .GETPAT 
R1.TSSR(RS) 


250 


TSSR(RS) .@SSR 


37$ 
ERRNO, TGONSR , SF IMSG 


200 


3¢ 
sPROCESS CONSOLE INTERRUPTS 


61$: 














RO,-(SP) 
QsTTIBER,RO 
8 RO 


200, 

#15,R0 
61$ 
#2$,2(SP) 


4(SP 

TVECSAV ,Q#TTIVEC 
TPRISAV Q#TTIVEC+2 
TTION 





61$ 
#100 ,asTTICSR 
(SP)+,RO 


TST 


—- ee ee 


sREAD THE DATA PATTERN 
TERN F ooP 





PICK UP THE PATTERN FROM OPR 


* WORD 
DEC 
BNE 


DEC 


sSTORE IN R 
WRITE BYTE TO TSSR, THIS STARTS MDIAG 
WAIT 2500US 


#250, (PC)+ 
LSOLY,(PC)* 
6cPe) 
=22(PC) 


BNE -720 
sCHECK FOR READY SET, IF A TRAP OCCURS 
s THE TSSR WAS "WOT BACK TO THE BUS” 


WAS SET (GOOD) KEEP LOOPING 


CBR. IF SSR 
SPRINT DEVICE FATAL =. 


- WORD 
-WORD 
:GO0 TO SUPERVISOR ETC. 


s SAVE WORK REGISTER 
T THE OPERA INPUT 


CSERDF 
802 

T4ONSR 
SF IASG 









;BRANCH IF YES 

sTURN OFF TTI INTERRUPTS 
;RESTORE REGISTER 

sRETURN FROM INTERUPT 





sEXIT THE TEST 


SEQ 226 


ee 
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TEST 8: SCOPE LOOPS 


SEQ 227 | 


3¢ | 
LOCAL STORAGE FOR THIS TEST | 





9365 061162 000000 TTION: eWOxdD 0 sWORD SET IF SUPERVISOR TTI INTER OFF 
1164 000000 TVECSAV: eWORD O sSAVE TTI VECTOR 
9367 061166 000000 TPRISAV: WORD 0 “SAVE TTI PRIORITY 
3+ 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 
9374 EVEN 
9375 061170 061220 061273 061321 SCMENU: .WORD 1$,28$,38,48,5$.6$ 
oars 061204 061472 061530 061567 WORD 7%,8$,108,118,128.0 
9378 
9379 061220 012 123 105 1$: .ASCIZ <12>"SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:° 
0612 012 011 060 2S: ASCIZ <12>" O Display This Menu‘ 
9381 061321 011 061 011 38: eASCIZ ° 1 TSBA Read Access‘ 
061345 011 062 011 4$: eASCIZ ° 2 TSSR Read Access’ 
061371 011 063 011 5$: ASCIZ ° 3 Initialize (TSSR Write Access)’ 
9384 061435 011 011 68: ASCIZ ° 4 TSDB High Byte Write Access’ 
9385 061472 011 065 011 7$: ASCIZ ' 5 TSDB Low Byte Write Access’ 
0615 011 011 8S: eASCIZ ° 6 TSSR Write Byte (Seif Test)’ 
9387 061567 011 067 011 108: eASCIZ ° 7 Return to biagnostic Supervisor’ 
edhe 000 118: eASCIZ °° 
9389 06163 124 171 160 128: C1Z ‘Type RETURN To Stop Scope Loops’ 
9390 061673 123 164 141 TGONE: .ASCIZ ‘Stand-alone Scope Loops Not Executed’ 
9391 061740 123 143 157 TST401D: eASCIZ hg 7 Loops’ 
vane 061754 123 123 122 T : ooh ‘sce Failed To Set After TSSR Write Byte And 10ms Delay’ 
ENDTST 


4 110075: 
062044 104401 TRAP CSETST 


J 2 
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DISPLAY BREAKPOINT SETTINGS 


SEQ 228 


+ 
« 


| 
.SBTTL HARDWARE PARAMETER CODING SECTION | 
| 





THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 


MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS | 













WITH THE OPERATOR. 


BGNHRD 
eWORD L10076-LSHARD/2 








LSHARD: : 
GPRMA HPM1,0,0,160000,177776,VES :GET TSBA/TSOB REGISTER ADDRESS. 
WORD TSCODE 
~ WORD 
- WORD 
WORD TSHILI 







Ki 
HPM2.2.0,0,776.VES GET VECTOR ADDRESS. 
TSCODE 


TSHILIA 
HPAS.4,0,340,0.7,YES sGET INTERRUPT PRIORITY. 
TSCODE 





340 
TSLOLIA 
TSHILIA 











"DEVICE ADDRESS (TSSR) ° 
"INTERRUPT VECTOR ° 
"INTERRUPT PRIORITY : 





& 





ced ons axck 
iO 
Oown 
TIT 
ye ore) 





pi 
al 


egress ee ee ——_ 


K 2 
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SOFTWARE PARAMETER CODING SECTION 


Hh 9 ~SBTTL SOFTWARE PARAMETER CODING SECTION 
10507 ++ 

10508 THE SOFTWARE PASAMETER CODING SECTION yer MACROS 
1 THAT ARE USED BY IHE SUPERVISOR 


: TO BUILD P-TABLES. THE 
; MACROS NE INS ONS BUT ARE 

10511 : INTERPRETED BY THe SUPERVISOR AS DATA STRUCTURES. THE 
: WITH THE OPERATOR. 





4 
10515 067004 BGNSFT 
067004 000006 WORD 110077-LSSOF T/2 
TSCODE 


SPM 


067006 
10516 067006 
7006 000130 
067610 067022 
12 17777 





067012 7 -1 
10517 067014 SPH4,2,°1. VES : GET ITERATION CONTROL. 
067014 001150 TSCODE 
067016 067061 
067020 177777 -1 
10518 SPM6.4,0,7777.0,7777.VES ; GET LOCAL ERROR LIMIT 
10519 SPR7.6,0,7777 0, 7777 YES ; GET GLOBAL ERROR LIMIT 
10520 067022 
067022 








105 116 101 SPM1: .ASCIZ “ENABLE M7454 RAM DUMP ON ERROR® 

0524 067061 111 116 110 SPM4:  .ASCIZ ‘INHIBIT ITERATIONS 
10525 067111 120 105 122 SPM6:  .ASCIZ ‘PER TEST ERROR LIMIT ' 
10526 067141 120 105 122 SPM7: .ASCIZ “PER UNIT ERROR LIMIT ° 
10527 EVEN 
10528 . “SBTTL PATCH AREA 
105 “DISPATCH TABLE 
10582 ; eee MOVE TO FRONT OF PROGRAM FOR RELEASE *** 
Ie :- 
10535 067172 DISPATCH TESTNO 

067172 : & 

LSDISPATCH:: - 





~4 
ge 


FINALLY A GENEROUS PATCH AREA. 
Se RE bw TO oe Ay THE “‘LASTAD BIT7** HACK 





; 
nnn iene 


L 2 


SEQ 250 
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PATCH AREA 

HF 3 
1054 
10544 067214 PATCH:: 
10545 ij 
10546 $ if NZ,.8377 
10547 : 02.1377 
10548 3 ‘ 
10549 067214 — sSET LAST USED ADDRESS. 

067214 067232 eWORD TSFREE 

067216 000005 WORD TSSIZE 

067220 LSLAST:: 
Ieee F -SBTTL HARD CODED P-TABLE 

2+ 

10e38 : DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 
10554 067220 BGNSETUP ‘ 
10555 067220 BGNPTAB 

067220 000000 eWORD O 

pereee 000003 «WORD £10102-./2-1 

067224 110100: 
10556 067224 172522 WORD 172522 
10557 067 000224 WORD 224 
10558 pers 000240 WORD PRIOS 
10559 067232 ENDPTAB 

723 110102: 

10560 067232 ENDSETUP 
10561 


10562 000001 oEND 
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SYMBOL TABLE | 





ADDSSR 011762 G 
ADR = 
AMBTSS 006325 






EBUGM berg 







FATFLG 002170 G HIMEM = 007776 
ERCM 0115 HOE = 100000 





RNFSUS 
i) 


Se 
HDAQAAOAOAAGAHAAAGAIAIAAAAAAGAAAAHAGAAS A Aca 


sbeseestetetste 


= 
Sununeueuneueneneneeeenenenneaenmneneaenraeneuaek a 


3s see 
eiahsceesseetses 


= 


$8 


ay 
So 
2S 


oooo 
ce th wud ond 
7 ac a 
g 

Qagodc 


GSPRML= (0000 
GSRADA= 000140 







GSRADB= 
G GSRADD= 000040 
174400 GSRADL= 000120 
154 G GSRADO= 000020 
116 G GSXFER= 000004 KIPDR4= 1 
130 G GSYES = 000010 KIPORS= 1 
003116 G FATERR= QO000GL HTADDR= 001400 >DRA= — sideaie 





a 
N 2 


& 
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SYMBOL TABLE 


KIPOR7= 172316 


NXRERR 905176 G 
NXRX 75 






P= 

NS 004050 
NSINIT 004305 
NUL 25 
NULCR 004426 
nxe = 004000 
NXR 003636 





‘ 
———— 


a 





LL ALA LL LALLA LALA 





8 3 









SEQ 233 
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SYMBOL TABLE 
sik 095106 G REWIND 010424 G $1.1FM= 001000 TST211 034006 
2 RMCHBE= 000167 S1.IHE= 0004 TST221 035322 
$1.119= 004000 TST231 041251 
$1.11R= 020000 TST2461 052462 
$1.12R= 040000 TST391 oeete 
= 100000 TST 
$2.ATI= 000010 TTIBFR= 9 o56o G 
$2.BTI= 000004 TTICSR= 177560 G 
$2.DIM= 000200 TTI 
S$2.I1LW= 000100 TTION2 053750 
eINR= 000020 TTIVEC= 
2.0UT= 000040 TTOBFR= 177566 
SCMENU 061170 S2.UND= 00000 TTOCSR= 177564 
SDELAY 010320 TBLEND= 003030 G TUV2A 002000 G 
SEEK = (00006 TCOASC 006166 TVECSA 061164 
SELASC 021350 TCOCOD 006366 TvSAV2 053752 
TEMP1 003064 G TSARGC= 000001 
TSCODE= 001130 
TSERRN= 001442 
TSEXCP= 000000 
TSFLAG= 000040 
TSFREE= 067232 
TSGMAN= 
TSHILI= 000007 
TSLAST= 000001 
TSLOLI= 000000 
TSLSYM= 010000 
TSLTNO= 000010 
TSNEST= 000000 
TSNSO = 000000 
TSNS1 = 000005 
TSNS2 = 000002 
TSPCNT= 000000 
TSPTAB= 010101 
TSPTHV= 000001 


TSPTNU= 000091 
TSSAVL= 177777 
TSSEGL= 177777 
TSSIZE= 000005 
TSSUBN= 000000 
TSTAGL= 177777 
TSTAGN= 010103 





TSSHW = 010000 

TSSINI= 010030 

TSSMSG= 010025 

TSSPC = 000001 
= 


002262 G 
017372 G 





RECV 002200 
REGSAV 021022 





—EEE ——————— 





c 3 





SEQ 234. 
CZTUXAO TUBO FRONT END PRT B MACRO M1200 29-MAR-83 13:32 PAGE 141-5 | 
SYMBOL TABLE | 
TSSPTA= 010101 T21DLY 040226 034224 T39TAD 057230 | 
SsaPt= 01008 5 04 056471 T3OWPN 060274 : 
T30UR 057762 | 
TS9WRT 060161 | 
1 035516 G | 
T4.1 035566 | 
4.2 036132 
4.3 03661 
14.4 037016 
14.5 037306 
1 1673 
TOONSR 061754 
15 041450 6 
15.1 041514 | 
15.10 046560 
15.11 047052 | 
15.12 047342 
15.2 042304 | 
15.3 063052 
15.4 063546 
15.5 4294 
15.6 064632 
15.7 065260 | 
15.8 045642 
15.9 066316 
052716 G 
17 056540 G 
= 000200 G 
UNITN 002150 G 
021 
017104 G 
200 | 





040006 TSORES 060374 
13380 040014 T39RL_ 060370 


T23S3_ 040016 





kr 











SEQ 235. 
CZTUXAO TUBO FRONT END PRT B MACRO M1200 29-MAR-85 15:52 PAGE 141-6 
SYMBOL TABLE | 
XST1 = 000010 G XSONEF= 002000 XS3CON 015540 x1. 2 X3.MDE= 177400 
12 G XSOONL= 000100 XxCOMM 003070 G X2.BUF= 000100 
$ 14 G XSALWA= 000000 X2.EXT= 000200 
XST4 = 000016 G : 1 
XSOBOT= 000002 K2.RCE= 040000 
XSOCON 015161 = 7 
KXSOEOT= 000001 X2.SPA= 0354 
XSOIE = 000040 X1.DLT= 100000 X2.UNI= 000007 
XSOILA= 000400 XSOWLK= 000004 X1.MBZ= 017375 X2.WCF= 002000 
XSOILC= 001000 XSICON 015226 X1.RBP= 000400 X3.DCK= 000010 X4.TSM= 020000 
SOLET psa XS2CON 015275 X1.SPA= 040000 X3.MBZ= 000006 x4.WRC= 000577 
XSOMOT= 000200 
- ABS. 067232 
000000 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 36936 WORDS ( 145 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 


ELAPSED TIME: 00:09:15 
CZTUXA.BIC ,.CZTUXA/“SP=SVC .MLB/ML ,CZTUXA.MAC 


ee ce EE EE el EE OE ELL LL ALLL LLL LL LL OL 


— ns oo: -— 


a 


